VB对口升学数组测试

Command2的Click事件代码完成：

Private Sub Command2_Click( )

Dim n As Integer, m As Integer, s As Single

min = 100: max = 10: s = 0 For i = 1 To 10

If a(i) > n Then If a(i) < m Then s = Next

Text1.Text = max Text2.Text = min

Text3.Text = End Sub

最后是“关闭”按钮Command3的Click事件代码：

Private Sub Command3_Click( ) End Sub 4、利用随机函数模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”三种情况各出现多少次。

Private Sub Command1_Click( ) Dim a(1, 1)

Dim n As Integer

n = Val(InputBox(\\请输入投币次数\

Label1.Caption = \投币次数：\ Randomize Timer For i = 1 To n

n1 = n2 = Next i

Print Tab(14); \投币结果如下:\

Print Tab(10); \两个正面的次数为:\a(0, 0)

Print Tab(10); \两个反面的次数为:\a(1, 1)

Print Tab(10); \一正一反的次数为:\ End Sub

5、利用一维数组统计一个班学生0～9、10～19、20～29、…、90～99及100各分数段的人数。

首先在“通用”段声明动态数组： Dim a(10) As Integer

命令按钮Command1的Click事件代码为： Private Sub Command1_Click()

Dim i As Integer, p As Integer, n As Integer

Dim x As Single

n = ' 利用输入框输入学生数

Label1.Caption = \共有人数：\ For i = 1 To n

x = Val(InputBox(\请输入第\& \名学生的成绩\

If x >= 0 And x <= 100 Then ' 限制数据范围

p = Int(x / 10) Else

MsgBox \请输入正确分数！\ ' 消息框 i = i – 1 End If Next i

For p = 0 To 9

p * 10 & \～\10 + 9) & \分的人数为:\ Next p

List1.AddItem \分的人数为:\& a(10) End Sub

6、 输入初始值，输出100个不能被3整除的数。

图6-1 输出100个不能被3整除的数

Private Sub Command1_Click( ) Dim x As Integer, n As Integer x = Val(Text2.Text): n = Do Until If x Mod 3 < > 0 Then

Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) n = n + 1 End If

Loop End Sub

7、 设计程序，求s = 1 + (1 + 2) + (1 + 2 + 3) + … + (1 + 2 + 3 + … + n)的值。

Private Sub Command1_Click( )

Dim n As Integer, i As Integer, j As Long, s As Long

n = Val(Text1.Text)

j = 0: For i = j = s = s + Next i

Label2.Caption = \和数 s = \ Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub

8、 所谓“水仙花数”，是指一个三位数，其各位数的立方和等于该数，如153 = 13 + 53 + 33，编写程序输出所有的“水仙花数”。

Private Sub Command1_Click( ) Dim p As Integer

List1. ‘清空列表框 For n = a = b = Int((n - a * 100) / 10) c = n - (a * 100 + b * 10) p = If p = n Then List1.AddItem Next End Sub

9、 马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，一共花去50先令。问男人、女人和小孩各有几人？

Private Sub Command1_Click( ) List1.Clear For x = 1 To 16 For y = 1 To 24 z = 30 - x - y

If Then p = Format(x, \& Format(y, \& Format(z, \

List1. End If

Next End Sub

10、 用1, 2, 3, 4这四个数字组成四位数。编写程序，打印出所有可能的四位数（四个数字可以相同），并统计出所组成的四位数的个数。每打印15个换行.

Private Sub Form_Load( ) Show Sum = 0

For a = 1 To 4 For b = 1 To 4 For c = 1 To 4

For d = 1 To 4

x = Print x; Sum = Sum + 1

If sum mod 15=0 Then Next Next b Next a Print

Print \总数为：\

End Sub