单选题在窗体上画—个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
单选题以下用户自定义函数 Function Func(a As Integer，b As Integer) As Integer Static m As Integer，i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4:m=1 P=Func(k,m) Print p End Sub 程序运行后，单击命令按钮，输出结果为
单选题在窗体上有两个命令按钮Command1和Commnd2，三个文本框Text1，Text2和Text3，有如下事件过程： Private Sub Comuand1_Click() Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click() Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text)) End Sub程序运行后，在Text1和Text2中分别输入123、456，然后依次单击Command1和Command2，则在Text3中显示的内容依次是______ 。
单选题执行以下Commaand1的Click事件过程在窗体上显示( )。 Option Base 0 Prinvate Sub Command1_Clcik() Dim a a=Array("a","b","C","d","e","f","g") Print a(1);a(3);a(5) End Sub
单选题以下描述中，不是线性表顺序存储结构特征的是( )。
单选题在数据管理技术发展的三个阶段中，数据共享最好的是
单选题窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m=InputBox("输入第一个数")
n=InputBox("输入第二个数")
Do While m＜＞n
Do While m＞n
m=m-n
Loop
Do While n＞m
n=n-m
Loop
Loop
Print m
End Sub
该程序的功能是______。
单选题下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等设置，然后单击“确定”按钮退出对话框，则将发生哪些变化( ) Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=3 On Error Resame Next ComrnonDiatog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.Fontltalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor;CommonDialog1.Color End Sub A．Text1的字体不发生变化 B．Text1的字体发生变化 C．Text1的字体和颜色发生变化 D．程序出错
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
d=0:c=10:x=Array(10, 12, 21, 32, 24)
For i=1 To 5
If x(i)＞c Then
d=d+x(i):c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
单选题命令按钮Commandl的单击事件过程如下： Private Sub Commandl_Click() Dim a(10，10)As Integer X=0 For i=1 T0 3 Forj=1 To 3 a(i，j)=i*2 Mod j Ifx
单选题假定有以下函数过程： Function Fun(S As String)As
String Dim sl As String Fori=1 To
Len(S) sl=LCase(Mid(S,i,1))+s1 Nexti
Fun=s1 End Function
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click()
Dim Str1 As String,Str2 As String
Str1=InputBox("请输入一个字符串") Str2=Fun(Str1) Print
Str2 End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。
A.ABCDEFG
B.abcdefg
C.GFEDCBA
D.gfedcba
单选题若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是( )。 A) Command1. Enabled = False B) Command1. Visible = False C) Command1. Cancel = False D) Command1. Default = False
单选题在表单中，“Caption”是对象的( )
单选题要建立一个随机文件记录学生的信息，如下定义的学生记录类型，由学号、姓名和5门课程成绩(百分制)组成，下列的定义正确的是( )。
单选题在窗体上画一个名为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print M(2+M(x))
End Sub
程序运行后，单击命令按钮，输出的结果是______。
单选题下列关于菜单的说法错误的是( ) A．每个菜单项都是一个控件，与其他控件一样也有其属性和事件 B．除了Click事件之外，菜单项不可以响应其他事件 C．菜单项的索引号可以不连续 D．菜单项的索引号必须从1开始
单选题标准模块中有如下程序代码：
Public x As Integer，y As Integer
Sub var pub()
x=10：y=20
End Sub
在窗体上有1个命令按钮，并有如事件过程：
Private Sub Command1 Click()
Dim x As Integer
Call var pub
x=x+100
y=y+100
Print x；y
End Sub
运行程序后单击命令按钮，窗体上显示的是( )。
单选题以下关于变量的类型说明符的使用中，正确的是______。 A．Dim a:a%=8000 B．Dim a:a@=1000% C．Dim a:a="OK" D．Dim a:a&=True
单选题有如下程序：
Private Sub Form Click()
Dim i As Integer，sum As Integer
sum=0
For i=2 To 10
Ifi Mod 2<>0 And i Mod 3=0 Then
sum=sum+i
EndIf
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为( )。
单选题计算下面分段函数的正确语句是______。A.y=IIf(x＞0,x+1,IIf(x＜0,x-1,0)B.y=IIf(x=0,0,IIf(x＞0,x-1,x+1))C.y=IIf(x＞0,x+1,IIf(x＜0,0,x-1)D.y=IIf(x=0,0,x-1,x+1)