计算机VB测试填空题部分.docVIP

1.请写出在Text1、Text2中输入96、40后，单击Command1时窗体上的显示结果___8__。 Private Sub Command1_Click() Dim a As Long,b As Long,r As Long a = Val(Text1.Text): b = Val(Text2.Text) Do While b 0 r = a Mod b: a = b: b = r Loop Print a 2.执行下面的程序段后，i的值为__5.6___，s的值为___5__。 s=2 For i=3.2 To 4.9 Step 0.8 s=s+1 Next i 3.在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim s As Integer Dim arr(3, 1 To 7) As Integer For Each test In arr s = s + 1 Next test Print s End Sub 程序运行后,单击Command1命令按钮,则程序输出的结果是_28____. 4.以下程序的功能是：分别计算给定的10个数中正数之和与负数之和。请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim ww ww = Array(12, ?6, 15, 34, ?32, 47, 13, 9, 6, ?3) s1 = 0 s2 = 0 For k = 1 To 10 If (ww(k) 0) Then s1 = __s1+ ww(k)或ww(k)+s1___ Else s2 = __s2 + ww(k)或ww(k)+s2___ End If Next k Print 正数之和为 ; s1 Print 负数之和为 ; s2 End Sub 5.将通用对话框的类型设置为“字体”对话框可以使用_____方法。【参考答案】 showfont ShowFont 6.将控件CommonDialog1设置为颜色对话框，可使用_____。【参考答案】 commondialog1.showcolor或 h2.e n base CommonDialog1.Action =3或 commondialog1.action =3或 CommonDialog1.ShowColor或 7.在KeyUp事件过程和KeyDown事件过程中的Shift参数指的是_____ 、_____和_____三的键的状态。 Shift Ctrl alt 8.下面程序的运行结果为_18____。 Private Sub Command1_Click() Dim x%, y% x = 18 y = 26 Call swap(x, y) Print y End Sub Private Sub swap(a%, b%) Dim t% t = a a = b b = t End Sub 9.执行下面程序段后，b的值为___300__。 a=300 b=20 a=a+b b=a-b a=a-b 10.在窗体上已建立多个控件，如Text1，Label1，Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件的_tabindex____属性设置为_0____。 11.默认情况下,数组下标的下界是__0___，若要使下标的下界为1,应该使用的语句是option base 1 12.Windows环境下的菜单一般有 快捷菜单 、 下拉式菜单 和 窗体控制 菜单_3种基本类型。 13.如果工具箱中还没有CommonDialog控件，则应从_工程____菜单中选定__部件___， 并将控件添加到工具箱中。 14.在执行KeyPress 事件过程时，KeyAscii是所按键的 ascii 码 15.设从键盘上输入 20，下面程序的运行结果为_10____。 Private Sub Form_Click() Dim title%, fee! t