单选题编写如下事件过程和函数过程： Private Sub Form_Click() Dim num() To 6)As Single num(1)=103:num(2):190:num(3)=0 num(4)=32:num(5)=-56:num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer,number() As Single)As Integer p2=number(1) For i=2 To n If number(j)＜p2 Then p2=number(j) Next i End Function 程序运行后窗体上显示的值是( )。 A) -56 B) 0 C) 103 D) 190
单选题设a=2，b=3，c=4，d=5，下列表达式的值是( )。 NOt a＜=c Or 4*c=b^2 And b＜＞a+c
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer x=5 y=7 z=0 Text1.Text=" " CallFunl(x，y，z) Text1.Text=Str(z) End Sub Sub Fun1(By Val a As Integer，Byval b As Integer，c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是
单选题编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=number(1) Forj=2 Ton lfnumber(j)＜p2 Thenp2=number(j) Next j End Function 程序运行后窗体上显示的值是( )。
单选题下面程序的执行结果是______。
Private Sub Command1_Click()
a=10
For k=1 To 5 Step—I
a=a-k
Next k
Print a;k
End Sub
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为______。
单选题设有窗体的Form MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer，Shift As Integer,X As Single，Y As Single) If(Button And 3)=3 Then Print”检查按键” End IfEnd Sub 关于上述过程，以下叙述中正确的是
单选题窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是
单选题设有以下程序：
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，则程序的执行结果为