If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t End If Next j Next i
For i = 1 To 20 Print a(i); Next i End Sub 答：
3．Private Sub Command1_Click() Dim i As Integer, c As Integer Dim s As Integer
For i = 1 To 100 s = s + i
If i Mod 17 = 0 Then c = c + 1 Next i
Print \ Print \能被17整数的数据有\个\End Sub 答：
4．Private Sub Command1_Click() Dim x As Integer
x = InputBox(\ Print x;
Max = x: Min = x: s = x For i = 2 To 10 x = InputBox(\：Print x; s = s + x
If x > Max Then Max = x If x < Min Then Min = x Next i
Print s / 10 Print Max, Min End Sub 答：
五、程序设计（从3个程序中选做其一，并保存在
5
Z盘）（30分）
（一）谁是幸运观众?
程序功能：运行程序,单击“设置”按钮,设置抽取随机手机号的时间,单击“开始”按钮,按照设置的时间倒计时随机抽取号码,时间到即产生幸运观众的手机号码。
1. 界面设计（10分）
(1) 启动VB,新建一个工程.
(2) 在当前Forml窗体中创建十一个文本框控件数组,(Textl(0)、Textl（1）?Textl(10)),
并将其有序排成一排.
(3) 在当前Forml窗体中创建两个标签、两个时钟、两个文本框、三个命令按钮控件. 2、属性设置（10分）
3、编写代码并调试（10分）
（二）随机投票系统
程序功能：利用随机函数Rnd随机生成代表选举人的随机投票数,单击（开始）按钮,将弹出“本轮投票胜利者”的消息框提示。 1、 界面设置（10分）
（1） 开启VB6.0,新建一个工程。
（2） 在当前窗体上创建两个框架、两个标签、两个文本框和两个命令按钮控件 2、 属性设置（10分）
3、 编写代码并调试（10分）
（三）谁能夺冠
程序功能：设计一个各球队积分的盘点器。单击各队右侧对应的“输入”按钮，通过输入框输入各队的“胜”、“平”、“负”、“进球”、“失球”数，计算各队的积分（胜得3分，平得1分，负不得分），再单击“判定”判断哪支球队可以夺冠。 1、 界面设计（10分）
(1)创建七个命令按扭、八个标签控件。 (2)创建五组文本框控件。 2、 属性设置（10分）
可参考课本
3、 编写代码并调试（10分）
6
相关推荐：
loading