单选题设有以下程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为
单选题在窗体上画一个组合框，其名称为Combo1，然后编写如下事件过程：
Private Sub Form_Load()
Combo1.Text="1"
For i=1 To 10
Sum=Sum+i
Next i
Combo1.Text=Sum
End Sub
程序运行后，输出结果为
单选题执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是
单选题在窗体上面—个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Print fun("ABCDEFG") End Sub Function fun(st As String)As String stlen=Len(st) tempe="" For k=1 To stlen/2 temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1) Next k fun=temp End Function 程序运行时，单击命令按钮，则在窗体上显示的是______。
单选题在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As integer Static y As integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef xl As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
单选题以下关于菜单的叙述中，错误的是______。
单选题以下可以作为Visual Basic变量名的是______。
单选题下面对语句的功能说明中错误的是( )。 Open“TextDat”For Output As #FreeFile A) 以顺序输出模式打开文件TextDat B) 如果文件TextDat不存在，则建立一个新文件 C) 如果文件TextDat已存在，则打开该文件，新写入的数据将增添到该文件中 D)如果文件TextDat已存在，则打开该文件，新写入的数据将覆盖原有的数据
单选题某人为计算n!(0＜n＜=12)编写了下面的函数过程：
Private Function fun(n As Integer)As Long
Dim P As Long
P=1
For k=n-1 To 2 Step-1
p=p*k
Next k
fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。
单选题设x是小于10的非负数。对此陈述，以下正确的VB表达式是
单选题组合框是文本框和( )特性的组合。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX＜20 Then Y=X Else Y=20+X End lf func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As SinSle，Y As Single) SW=True End Sub Prinvate Sub Command1_Click( ) Dim intNum As Integer intNum=InputBox(””) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
单选题下列控件中，没有Caption属性的是______。
A.单选按钮
B.复选框
C.列表框
D.框架
单选题窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：
Private Sub Command1_Click()
Dim p As Integer
p=m(1)+m(2)+m(3)
Print p
End Sub
Private Function m(n As Integer)As Integer
Static s As Integer
For i=1 To n
s=s+1
Next
m=s
End Function
运行程序，第2次单击命令按钮Command1时的输出结果为______。
单选题下面可以产生20～30(含20和30)的随机整数的表达式是
单选题资源文件的扩展名是（ ）。
单选题以下不能触发滚动条Change事件的操作是______。
A.拖动滚动框
B.单击两端的滚动箭头
C.单击滚动框
D.单击滚动箭头与滚动框之间的滚动条
单选题在窗体上画一个名称为CD1的通用对话框，并有如下程序： Private Sub Form_Load() CD1. DefaultExt="doc" CD1. FileName="c:/file1.txt" CD1.Filter="应用程序(*.exe)|*.exe" End Sub 程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是( )。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
x = -5
If x ＞0 Then
y = x ^ 2
Else
y = x
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是（ ）
单选题当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是______