单选题假设有如下的命令按钮(名称为Command1)事件过程： Private Sub Command1_Click() x=InputBox("输入："，"输入整数") MsgBox"输入的数据是："，，"输入数据："+x End Sub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是
单选题在窗体上面1个名为Text1的文本框和1个名为Labell的标签，再画4个名为Opl的单选按钮控件数组，其Index属性按零度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句______。图1图2OptionBase1Dimsales(12)AsLongPrivateSubForm_Load()Open"c:/sales.txt"ForInputAs#1Fork=1Fo12Input#1,sales(k)NextkClose#1EndSubPrivateSub______(IndexAsInteger)DimSumAsLong,kAsInteger,monthAsIntegersum=0month=Index*______Fork=1To3month=month+1sum=sum+sales(month)NextkLabell.Caption=______.Caption&"销售总额:"Text1=SumEndSub
单选题窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串") Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=""：i=1：sLen=Len(s) Do Wbile i＜=sLen／2 temp=temp+Mid(s，i，1)+Mid(s，sLen-i+1，1) i=i+1 Loop pick_str=temp End Function 运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为
单选题表达式3*4^2+4*3/2+4^2的值是______。
A. 35
B. 36
C. 70
D. 71
单选题在窗体上画一个命令按钮(名称为Commandl)，并编写如下代码：Function Fun 1(ByVal a As Integer， Private Sub Commandl_Click() b As Integer)As Integer Dim x As Integer Dim t As Integer x=10 t=a－b：b=t+a：Fun1=t+b Print Fun1(Fun1(x，(Fun1(x，x－1)))，x－1)End Function End Sub程序运行后，单击命令按钮，输出结果是
单选题如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是( )。
单选题窗体上有1个名称为Text1的文本框；1个名称为Timerl的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timerl的事件过程如下： Private Sub Timerl_Timer() Static flag As Integer Ifflag=0 Then flag=1 flag=-flag Ifflag=1 Then Text1．ForeColor=&HFF& '&HFF&为红色 Else Text1．ForeColor=&HC000&' &HC000& 为绿色 End If End Sub 以下叙述中正确的是( )。
单选题有如下程序： Private Sub Form_Click() Dim iAs Integer,nAs Integer For i=1 To 20 i=i+4：n=n+i Ifi>10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是
单选题以下可以作为Visual Basic变量名的是
单选题下面程序段的输出结果为______。 Print "10+20="， Print 10+20 Print "20+20="； Print 20+20
单选题设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为： ______。 x=IIF((a＞b) And(c＜d) ，10,20)
单选题用树型结构表示实体之间联系的模型是( )。
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer x=5 y=7 z=0 Text1.Text="" Call Funl(x,y,z) Text1.Text=Str(z) End Sub Sub Funl(ByVal a As Integer，ByVal b As Integer，c As Integer) C=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是
单选题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是( )。
单选题窗体上有一个名称为Option1的单选按钮控件。当程序运行，并单击某个单选按钮时，会调用下面的事件过程：
Private Sub Option1_Click(Index As Integer) …
End Sub 下面关于此过程的参数Index的叙述中正确的是{{U}} {{/U}}
A.Index为1表示单选按钮被选中，为0表示未选中
B.Index的值可正可负
C.Index的值用来区分哪个单选按钮被选中
D.Index表示数组中单选按钮的数量
单选题文本框Text1的KeyDown事件过程如下：
Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。
单选题设有如下程序段：
x=2
For c=1 To 4 Step 2
x=x+c
Next c
运行以上程序后，x的值是（ ）
单选题下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123，456，"###，##%") End Sub
单选题要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是______。
A.AutoSize值为True
B.AutoRedraw值为True
C.Stretch值为True
D.BorderStyle值为0
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为myform1，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Private Sub M1_Click(Index As Integer) Form1, Caption="myform2" End Sub 运行时，单击按钮数组中的第一个按钮，窗体标题为______。 A) Form1 B) M1 C) myforml D) myform2