vb作业,在线等
发布网友
发布时间:2023-11-23 12:50
我来回答
共1个回答
热心网友
时间:2024-10-29 00:22
第二题:
Private Sub Command2_Click()Dim k1 As Integerk1 = Val(Text1.Text)For i = 1 To UBound(a)If k1 = a(i) Then Exit ForNext iFor j = i + 1 To 10 a(j - 1) = a(j)Next jFor i = 1 To 10 Print a(i);Next iEnd Sub
Private Sub Command3_Click()ReDim a(1 To 100) As IntegerFor i = 1 To 10 a(i) = Int(Rnd * 101)Next iFor i = 10 To 2 Step -1 For j = 1 To i - 1 If a(j) > a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next jNext iFor i = 1 To 10 Print a(i);Next iPrintEnd Sub
Private Sub Form_Load()Label1.Caption = "请输入要删除或插入的数"Text1 = ""Command1.Caption = "插入"Command2.Caption = "删除"Command3.Caption = "生成随机序数"End Sub
以上回答你满意么?