单选题当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree?
单选题下面的程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是 Private Sub Command1_Click() Dim count(25) As Integer, ch As String ch=Uease(InputBox("请输入字母字符串")) For k=1 To Len(eh) n=Asc(Mid(ch, k, 1))-Asc("A") If n＞0 Then Count(n)=Count(n)+1 End If Next k m=Count(0) For k=1 To 25 If m＜count(k) Then m=count(k) End If Next k Print m End Sub
单选题设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
Dim a As Integer
a=10
Call g(Form2,A)
End Sub
Private Sub g(f As Form, x As Integer)
y=IIf(x＞10,100,-100)
f.Show
f.Caption=y
End Sub
运行以上程序，正确的结果是______。
单选题对于文本框Text1，能够获得按键的ASCII码值的事件过程是
单选题窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval 属性分别为True和1000。编写如下程序： Dim nAs Integer Private Sub Timer1 Timer() ch：Chr(n+Asc(”A”))：Label1．Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中
单选题编写如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=3:b=2
If a*b＜10 Then
b=b+1
Else
b=b-1
End If
Print b-a＞0
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(p1(x),y) Text2.Text=p1(x) End Sub Private Function p1(x As Integer)As Integer x=x+y:y=x+y p1=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
If i=1 Then x=i
If i＜=4 Then x=x+l
Print x;
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为
单选题以下表达式与Int(3．5)的值相同的是
单选题阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是
单选题若想使时钟控制每隔0.25秒触发一次Timer()事件，则可将Interval属性值设为
单选题下列关于图片框的语句中不正确的是( )。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______ 。
单选题在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程： Private Sub
Command1_Click() Text1.Text="VB Programming"
Text2.Text=Text1.Text Text1.Text="ABCD" End
Sub 程序运行后，单击命令按钮，Text1文本框中显示的内容为_______。
A."VB Programming"
B."ABCD"
C." VB Programming ABCD"
D.空
单选题单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click(
) Dim x As Integer, y As Integer
x=12:y=32 Call PCS(x,
y) Print x; y
End Sub Public Sub PCS( ByVal n As Integer, ByVal
m As Integer) n = n Mod
10 m=m Mod 10
End Sub
A. 12 32
B. 2 32
C. 2 3
D. 12 3
单选题设x值为6，y值为0，则以下可使y值为1的程序段是
单选题现有如下语句： x＝IIf(a>50， Int(a/3)， a Mod 2)当a＝52时，x的值是( )。
单选题设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String，ch As String S=""For k=1 To Len(Text1)ch=Mid(Text1，k，1)s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是
单选题某人为计算n!(0＜n＜=12)编写了下面的函数过程： Private Function fun(n As
Integer)As Long Dimp As Long p=1
For k=n-1 To 2 Step-1 p=p*k
Nextk fun=p End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。
A.把p=1改为p-n
B.把For k=n-1 To 2 Step-1改为For k-1 To n-1
C.把For k=n-1 To 2 Step-1改为For k-1 Ton
D.把For k=n-1 To 2 Step-1改为For k=2 To n
单选题有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2＜＞0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。 A．12 B．30 C．24 D．18