内容发布更新时间 : 2024/11/13 10:42:14星期一 下面是文章的全部内容请认真阅读。

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