2011年计算机等级考试二级VB综合练习题(4)

　　四、读程序题

　　1、对窗体编写如下代码：

　　Option Base 1

　　Private Sub Form_KeyPress(KeyAscii As Integer)

　　a = Array(237,126,87,48,498)

　　m1 = a(1)

　　m2 = 1

　　If KeyAscii = 13 Then

　　For i =2 To 5

　　If a(i)>ml Then

　　m1 =a(j)

　　m2 =i

　　End If

　　Next i

　　End If

　　Print m1

　　Print m2

　　End Sub

　　程序运行后，按回车键，输出结果是什么?

　　2、阅读下面的程序，写出执行结果。

　　Private Sub Form_load()

　　Form1.show

　　d = 0

　　For a = 1 To 2

　　For b = 1 To a

　　For c = b To 5

　　d = d + 1

　　Next c

　　Next b

　　Next a

　　Print d

　　End Sub

　　五、编程题

　　1、在窗体上有一个文本框控件，名称为TxtTime;一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。

　　2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值，如下图所示。

　　3、编写一个程序，能够实现任意个整数的排序。

　　4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。

　　5、编程实现任意两个数的“加、减、乘、除”。

　　6、编写一个程序，能够求任意个正整数的最大值和最小值。

　　7、编程求任意两个正整数的最大公约数。

　　　　　　　2011年计算机等级考试二级VB基础教程汇总

　　　　　　　2011计算机等级考试二级VB综合练习题汇总