计算机二级 常考vb程序操作题

L1.RemoveItem List1.ListIndex
'将List1中指定的项目删除
End Sub
Public Sub MoveAll()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
fmax = 0
For i = 1 To 20
For j = 1 ຫໍສະໝຸດ o i - 1 If a(i) = a(j) Then
b(i) = b(i) + 1
End If
Next j
If b(i) > fmax Then fmax = b(i)
If i > Sqr(a(k)) Then
num = num + 1
b(num) = a(k)
End If
Next k
For i = 1 To num
Text2.Text = Text2.Text + Str(b(i)) + Space(2)
Next i
End If
End Sub
i j k l m n 编写全程
Option Base 1
Dim a(6) As Integer
Private Sub Command1_Click()
Open App.Path & "\" & "in5.txt" For Input As #1
'如果该数能被3整除，则将num加1
b(num) = a(k)
'如果该数能被3整除，则将该数存入数组b中
End If
Next k
For k = 1 To num
For i = k + 1 To num
判断素数 存执 b组
素数"按钮的代码如下：
Private Sub Command2_Click()
Dim b(100) As Integer
Dim k As Integer, i As Integer
num = 0
If Len(Text1.Text) = 0 Then
Next k
'对数组b中的数据进行从小大的排序
For i = 1 To num
Text2.Text = Text2.Text + Str(b(i)) + Space(2)
Next i
End If
End Sub
Private Sub Cmd3_Click()
End
End Sub
list1 》list2
修改后的代码如下：
Private Sub List1_DblClick()
Call MoveItem(List1, List2)
'调用MoveItem函数
j = j + 1
End If
k = k + 1
Loop
Do While k < 61
Text2.Text = min
完全平方数
Private Sub Command2_Click()
Dim i As Integer, j As Integer, num As Integer, max As Integer
num = 0
max = 0
For i = 1 To 100
Private Sub Command1_Click()
'Text2.Text = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength)
Text2.Text = Text1.SelText
End Sub
Private Sub Command2_Click()
Select Case LCase(str1)
Case Is = "i"
a(1) = a(1) + 1
Case Is = "j"
a(2) = a(2) + 1
Case Is = "k"
Next j
Next i
Text1.Text = max
Text2.Text = num
End Sub
0~10 随机数 出现次数最多的次数
Private Sub Cmd1_Click()
Text1.Text = "": Text2.Text = "": Text3.Text = ""
If Trim(strarr(j)) <> "" Then
sum = sum + Len(Trim(strarr(j)))
If max < Len(Trim(strarr(j))) Then
max = Len(Trim(strarr(j)))
End If
Next j
Text1.Text = Round(sum / j)
For j = 1 To Int(Sqr(a(i)))
If a(i) = j * j Then
num = num + 1
If max < a(i) Then max = a(i)
End If
a(6) = a(6) + 1
End Select
Next i
End Sub
Private Sub Command3_Click()
Open App.Path & "\" & "out5.txt" For Output As #1
For i = 1 To 6
If b(k) > b(i) Then
temp = b(k)
b(k) = b(i)
b(i) = temp
End If
Next i
Next i
For i = 1 To 20
If b(i) = fmax Then
Text2.Text = Text2.Text + Str(a(i)) + Space(2)
End If
Next i
Text3.Text = fmax
End Sub
s = Input(LOF(1), #1)
Text1.Text = s
Close #1
End Sub
Private Sub Command2_Click()
For i = 1 To Len(Text1)
str1 = Mid(Text1, i, 1)
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
End If
Next i
Text1.Text = max
Text2.Text = max
End Sub
水仙花数
Dim max As Integer, min As Integer
Dim i As Integer
max = a(1)
min = a(1)
For i = 1 To 100
If isnarc(a(i)) Then
Dim j As Integer
Dim sum As Integer
Dim max As Integer
Dim k As Integer
Dim strarr() As String
strarr = Split(s, "")
For j = 0 To UBound(strarr) - LBound(strarr)
Do While i < 31 And j < 31 And k < 61
If a(i) < b(j) And i < 31 Then
c(k) = a(i)
i = i + 1
Else
c(k) = b(j)
For i = 1 To 20
a(i) = Fix(Rnd * 9 + 1)
b(i) = 1
Text1.Text = Text1.Text + Str(a(i)) + Space(2)
Next i
End Sub
Private Sub Cmd2_Click()
Next
End Sub
生成b数组 从小到大排
Private Sub Command2_Click()
Dim b(100) As Integer
Dim k As Integer, i As Integer, temp As Integer
num = 0
End Sub
Private Sub Command1_Click()
Call MoveAll
End Sub
Public Sub MoveItem(L1 As ListBox, L2 As ListBox)
L2.AddItem List1.Text
'将List1中是项目添加到L2中
If Len(Text1.Text) = 0 Then
MsgBox "请先执行"读数据"功能！"