单选题下列说法错误的是( ) A．窗体文件的扩展名为．frm B．一个窗体对应一个窗体文件 C．Visual Basic中的一个工程只包含一个窗体 D．Visual Basic中一个工程最多可以包含255个窗体
单选题在窗体中添加—个名称为Command1的命令按钮，然后编写如下代码： Function F(a As Integer) b=0 Static c b=b+1 C=c+1 F=a+b+c End Function Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=2 For i=l To 3 b=F(a) Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是
单选题单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function
单选题在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Textl，然后编写如下程序： Private Sub Command1_Click( ) Dima(5)，b(5) Forj：1 T04 s(j)=3*j b(j)=a(j)*3 Next j Textl.Text=b(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示
单选题己知a=5，b=8，c=12，下列表达式的值为True的是( )。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4，5) For i=1 To UBound(
单选题窗体的 MouseDown事件过程Form MouseDown(ButtonAsInteger,ShifiAsInteger， XAsSingle,YAsSingle)有4个参数，关于这些参数正确的描述是______。
单选题设有下面程序代码：
Private Sub Command1_Click()
Dim str As String，ch As String
str=”Visual Basic Programming”：ch=”a”
n=fun(ch,str)：Print str,n
End Sub
Private Function fun(ch As String，str As String)As Integer
Dim strbuf As String，c As String，n As Integer
For k=1 To Len(str)
c=Mid$(str,k，1)
Ifc<>ch Then
strbuf=strbuf&c
Else
strbuf=strbuf&UCase(c)：n=n+1
End If
Next k
str=strbuf：fun=n
End Function
程序运行时的输出是
单选题当发生窗体的单击事件时，输出的第二行为{{U}} {{/U}}。 Private Sub
Form_click() Dim N1 As Integer,N2 As Integer,N3 As
Integer N1=1:N2=1 Print N1;N2
Do N3=N1+N2 Print N3；
N1=N2:N2=N3 Loop Until N3＞=5 End
Sub
A. 1 1 1
B. 2 3 5
C. 2 5 7
D. 2 3 4
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(
单选题执行以下程序后，在窗体上输出的是( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step 2 a(j)=j Next j Print a(1)+a(2)+a(3) End Sub
单选题在窗体上画一个名称为CD1的通用对话框，并有如下程序：
Private Sub Form_Load()
CD1.DefaultExt="doc"
CD1.FileName="c:/file1.txt"
CD1.Filter"应用程序(*.exe)|*.exe"
End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是______。
单选题关于窗体，以下叙述中正确的是__________。
单选题单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End Function
单选题下列叙述中正确的是( )。 A．程序设计就是编制程序 B．程序的测试必须由程序员自己去完成 C．程序经调试改错后还应进行再测试 D．程序经调试改错后不必进行再测试
单选题假定窗体上有一个标签，名称为Lahel1，为了使该标签透明并且没有边框，则正确的属性设置为______。
单选题窗体上有List1、List2两个列表框，List1中有若干列表项(见下图)，并有下面的程序：PrivateSubComand1_Click()Fork=List1.ListCount-1To0Step-1IfList1.Selected(k)ThenList2.AddItemList1.List(k)List1.RemoveItemkEndIfNextkEndSub程序运行时，按照图示在List1中选中2个列表项(物理和外语)，然后单击Command1命令按钮，则产生的结果是______。
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是
单选题若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是
单选题在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Cbr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，如果在文本框中输入字母“p”，则在文本框中显示的内容为( )。