单选题通过InputBox函数可以产生输入对话框。若执行下列语句：
st＄=InputBox("请输入字符串","字符串对话框","字符串")
运行程序，用户输入完毕并单击“确定”按钮后，st＄变量的内容为{{U}} {{/U}}。
A.字符串
B.请输入字符申
C.字符串对话框
D.用户输入内容
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox( "Enter an integer" ) b = Text1. Text Text1. Text = b + a End Sub 程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是( )。 A) 579 B) 123 C) 456123 D) 456
单选题为了在Form—Load事件过程中用Print方法在窗体上输出指定的内容，首先应执行的操作是( )。
单选题对于某些控件，只要将其Style属性设置为1，则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是( )。
单选题要设置工程中某一个窗体作为启动窗体，必需的操作步骤是________。
A.打开“属性窗口”，选择作为启动窗体的窗体名称
B.打开“代码窗口”，选择作为启动窗体的窗体名称
C.打开“工程属性窗口”，选择作为启动窗体的窗体名称
D.打开“窗体设计器”窗口，选择作为启动窗体的窗体名称
单选题假定窗体上有一个标签，名为Label。为了使该标签透明并且没有边框，则正确的属性设置为( )。
单选题在窗体上画一个名称为Text1的文本框，并编写如下程序： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer Sum As Integer arr=Array(12，4，8，16) Start=LBound(arr) Finish=UBound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Text=cEnd Sub 运行程序，单击窗体，则在文本框中显示的是
单选题在窗体上画一个名称为Text1的文本框，然后编写以下事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If _________________ Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub要求程序运行时，若输入焦点在Text1上，按下组合键Ctrl+A可以选取Text1内所有的文本，则在横线处应填入的表达式是( )。
单选题假定有以下通用过程：
Function Fun(n As Integer)As Integer
x=n*n:Fun=x-11
End Function
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 2
y=Fun(i) Printy;
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
单选题结构化程序设计所规定的三种基本控制结构是
单选题计算二的近似值的一个公式是 某人编写下面的程序用此公式计算并输出π的近似值： PrivateSubComand1_Click() PI=1 Sign=1 n=20000 Fork=3Ton Sign=-Sign/k PI=PI+Sign/k Nextk PrintPI*4 EndSub 运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是
单选题单击命令按钮执行以下程序，输出结果为( )。 Pfivate Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Printx；y End Sub， Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10：m=m Mod 10 End Sub
单选题下列程序执行后，变量x的值为______。
Dim a, b, c, d As Single
Dim x As Single
a=100
b=20
c=1000
If b＞a Then
d=a: a=b: b=d
End If
If b＞c Then
x=b
Elseif a＞c then
x=c
Else
x=a
End If
单选题当发生Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出______ 。 Option Explicit Private Sub Form Click () Dim num As String * 1, n As Integer Open "C:/ Check. txt" For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek #10, 3: Get #10, , num Print Loc(10); Seek(10) End Sub
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X=InputBox("Input") Select Case x Case 1，3 Print "分支1" Case Is＞4 Print "分支2" Case Eise Print "Else分支" End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是( )。
单选题有如下程序： 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 单击命令按钮，程序运行结果为( )。 A) 1 B) 2 C) 3 D) 5
单选题窗体上有一个名称为Command1的命令按钮，有程序如下：
Option Base1
Private Sub Command1_Click()
Dim a(10)As Integer第1个For
For i=l To 10
a(i)=Int(Rnd*100+100)
Print a(i)；
Next
x=a(i)：y=x '第2个For
For i=1 To 10
Ifxa(i)Then Y=a(i)
s=s+a(i)
Next
Print x，y，s
End Sub
关于上述程序的叙述中，正确的是
单选题窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：PrivateSubCommand1_Click()Callealc(HV.Value,HT.Value)EndSubPublicSubealc(xAsInteger,yAsInteger)Text1.Text=x*yEndSub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是______。
单选题设有如下程序：
Private Sub Command1_Click()
Dim m As Integer,n As Integer
m=1
For n=1 To 5
m=m*n
If m＞15 Then
Exit For
Else
n=n+1
End If
Next n
Print m;n
End Sub
程序运行后，单击命令按钮Command1，输出结果为______。
单选题在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer，n As Integer x = 1 n = 0 Do While x＜20 x = x * 3 n = n + 1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是