单选题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a, b As Integer
a = val(InputBox("Enter the First integer"))
b = val(InputBox("Enter the Second integer"))
Print a + b
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是和（ ）
单选题下列程序段的执行结果为 a=6 For k=1 To
0 a=a+k Next Print k;a
A. -1 6
B. -1 16
C. 1 6
D. 11 21
单选题在窗体上画一个命令按钮(其名称为Conlmand1)，然后编写如下事件过程：Private Sub Command1_Click() For i=1 To 4 If i=1 Then x=i If i＜=4 Then x=x+1 Print x Next iEnd Sub 程序运行后，单击命令按钮，其输出结果为______。
单选题以下叙述中错误的是( )。
单选题下列程序段的执行结果为( )。 For X=5 To 1 Step-1 For Y=1 To 6-X Print Tab(Y+5);“水”： Next Print Next A) ***** **** *** ** * B) ***** **** *** ** * C) * ** *** **** ***** D) * *** ***** ******* *********
单选题以下关于函数过程的叙述中，正确的是______。 A) 在函数过程中，过程的返回值可以有多个 B) 函数过程形参的类型与函数返回值的类型没有关系 C) 如果不指明函数过程参数的类型，则该参数没有数据类型 D) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
单选题下列程序段的执行结果为 m=2 n=3 Do m=m+n n=n+1 Loop While m＜10 Print m;n
单选题能得到组合框Combol中最后一个列表项序号的表达式是( )。
单选题在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：
Sub S(x As Integer, y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1_Click()
Dim i As Integer, z As Integer
m=0
z=0
For i=1 To 3
S i, z
m=m+z
Next i
Label1.Caption=Str(m)
程序运行后，单击命令按钮，在标签中显示的内容是______。
单选题以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
单选题数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是{{U}} {{/U}}。
A. DB包含DBS和DBMS
B. DBMS包含DB和DBS
C. DBS包含DB和DBMS
D. 没有任何关系
单选题窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(如下图所示)；另有一个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序。PrivateSubTimer1_Timer()Fork=Line1.X1ToLine2.X1Step100IfShape1.Left+Shape1.Width＜Line2.X1ThenShape1.Left=Shape1.Left+100EndIfNextkEndSub运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是______。A)把计时器的Interval属性设置为100B)把Fork=Line1.X1ToLine2.X1Step100和Nextk两行删除C)把IfShape1.Left+Shape1.Width＜Line2.X1Then改为IfShape1.Left＜Line2.X1ThenD)把Fork=Line1.X1ToLine2.X1Step100改为Fork=Line2.X1ToLine1.X1Step
单选题数学式y2>x>=10在VB中应表示为
单选题在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4
Click() Dim a As Integer，b As
Integer a=1 b=2 Print N(a，b) End
Sub Function N(x As Integer，y As Integer)As
Integer N=IIf(x＞y，x，y) End
Function 程序运行后，单击命令按钮，输出结果为
A.l
B.2
C.5
D.8
单选题有如下程序： Private Sub Command1_Click() a$="A WORKER IS HERE" x=Len(a$) For i=1 To x-1 b$=Mid$(a$，i，3) If b$="WOR"，Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为
单选题以下关于控件数组的叙述中，错误的是
单选题窗体上有1个Timer1计时器，1个Shapel形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Timer1_Timer() Private Sub Form_Load() If flag Then flag=True Shapel．Height=Shapel．Height*2 Timer1．Enabled=True Shapel．Width=Shapel．Width*2 Timer1．Interval=1000 Else End Sub Shapel．Height=Shapel．Height*0．5 Shapel．Width=Shapel．Width*0．5 End If flag=Not flag End Sub 执行程序所产生的效果是
单选题以下语句的输出结果是______。 Private Sub Command1_Click() x=10 y=1 Print x+y=101； End Sub
单选题AT(″大学″，″北京语言文化学院″)的显示结果是( )
单选题窗体上有1个名称为Command1的命令按钮，事件过程如下： Pfivate Sub Command1_Click() Dim num As Integer．x As Integer num=Val(InputBox("请输入一个正整数")) Select Case num Case Is>100 x=x+num Case Is<90 X=num Case Else x=x*num End Select Print x； End Sub 运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为