填空题下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case 【13】 Print "您的成绩为优秀！" Case 【14】 Print "您的成绩为良好！" Case 【15】 Print "您的成绩为一般！" Case Else Print "您的成绩为一般以下！" End Select End Sub
填空题Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是 【14】 。
填空题驱动器列表框控件最重要的属性为Drive 属性。该属性用于设置或者返回所选择的驱动器名。Drive 属性只能用______ 设置，不能通过属性窗口来设置。
填空题有如下程序：
Private Sub Form_Click()
n=10
i=0
Do
i=i+n
n=n-2
Loop while n＞2
Print i
End sub
程序运行后，单击窗体，输出结果为{{U}} {{U}} {{/U}} {{/U}}。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体隐藏，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() Form1. (11) Form2. (12) End Sub
填空题下述程序段在运行时的显示结果是 【6】 。 Cls x=1．34 + 8 Print Len(x)
填空题以下语句的输出结果是{{U}} 【6】 {{/U}}。
Print Int(12345.6789*100+0.5)/100
填空题以下程序段的输出结果是 【11】 。 num=0 While num＜=2 num=num+1 Print num； Wend
填空题下面运行程序后，单击命令按钮，输出的结果是{{U}} 【9】 {{/U}}。
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun( a( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun=t
End Function
填空题为在新建工程中模块的“通用声明”段自动加入Option Explicit语句，应在______对话框中的“编辑器”选项卡上进行相应选项的选择。
填空题设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，请补齐以下代码，要求每次单击滚动条两端箭头，或滚动条滑块与两端箭头之间的空白区域时，滚动条的值能够反映在标签中。 Private Sub Hscroll1______ Label1.Caption=Hscroll1______ End Sub
填空题在用通用对话框的ShowOpen显示“打开”文件对话框时，指定其中的文件类型为文本文件的格式为 【6】 。
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编定如下事件过程： Private Sub Command1_Click() Dim inData As String Text1.Text:“” Open "d:/myfile.txt" For (10) As#1 Do While (11) Input #1,inData Text1.Text=Text1.Text+inData Loop Close#1 End Sub 程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。
填空题下列程序段的执行结果为______。 i=4 a=5 Do i=i+1 a=a+2 Loop Until i＞=7 Print "A="；a
填空题下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer, j As Integer, Strl $ Strl =" " For i = 1 To 9 For j = 1 To 9 If 【11】 Then Strl =Strl +Str$ (j) +" x" +Str$ (i) +" =" +Str$ (Val(i*j)) Else Strl = Strl & Chr( 13 ) 【12】 End If Next Next Print Strl
填空题执行下面程序，第一行输出结果是
________
，第二行输出结果是
________
。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1(x)
End If
x=x,2+1
Print x
End Sub
填空题在VB中，语句定义符Const定义的是 【12】 。
填空题在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_CIick()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i =1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是
________
。
填空题在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【 】事件，当对象失 去焦点时将触发【 】事件。
填空题下列程序的功能是求336的个位和十位数的值，填空补充程序。 Private Sub
Command1 Click() n=1 For i=1 To 6
n=n*33 n=n Mod 100 Next
i m={{U}} {{U}} {{/U}} {{/U}}
n={{U}} {{U}} {{/U}} {{/U}}
Print"十位数是”；n；”个位数是”；m End Sub