单选题Visual Basic集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是( )。
单选题在do until…Loop循环中，判断循环表达式与结束循环的关系是______。
单选题模块独立性是软件模块化所提出的要求，衡量模块独立性的度量标准则是模块的 A) 抽象和信息隐蔽 B) 局部化和封装化 C) 内聚性和耦合性 D) 激活机制和控制方法
单选题窗体上有一个名称为Timer1的计时器控件，一个名称为Shapel的形状控件，其Shape属性值为3(Circle)。编写程序如下：Private Sub Form_Load() Shape1．Top=0：Timer1．Interval=1 00End SubPrivate Sub Timer1 Timer() Static x As Integer Shape1．Top=Shape1．Top+100 x=x+1 If x Mod 10=0 Then Shape1．Top=0End If End Sub 以下关于上述程序的叙述中，错误的是
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框，编写如下程序： Private Sub Command1_Click() Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后______。 A) 文本框中显示的是"程序设计"，且焦点在文本框中 B) 文本框中显示的是"等级考试"，且焦点在文本框中 C) 文本框中显示的是"程序设计"，且焦点在命令按钮上 D) 文本框中显示的是"等级考试"，且焦点在命令按钮上
单选题计算的近似值的一个公式是π/4=1-(1/3)+(1/5)-(1/7)+…+(-1)
n-1
(1/2n-1)。
某人编写下面的程序用此公式计算并输出的近似值：
Private Sub Command1_Click()
PI=l
Sign=1
n=20000
For k=3 To n
Sign=-Sign
PI=PI+Sign/k
Next k
Print PI*4
End Sub
运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是______。
单选题在窗体上画一个命令按钮，名称为Command1。然后编写如下事件过程： Private Sub Command1_Click() x=11 Sum=0 For i=1 To x n=Iif(i＞5, 1, 2) Sum=Sum+n Next i Print Sum End Sub 运行后的输出结果是______。
单选题在窗体上画一命令按钮和一文本框，其名称分别为Command1和Text1，然后编写如下程序： Function Fun(x As Integer， Private Sub Command1_Click() y As Integer)As Integer Dim a As Integer，b As Integer Fun=IIf(x
单选题设数据集合为D={ 1,3,5,7,9 }，D上的关系为R，下列数据结构B=（D，R）中为非线性结构的是
单选题设a=3，b=5，c=2，d=6，则下面语句输出的是______。
Print4＞5 * b Or a=c And b＜＞c Or c＞d
单选题下面关于标准模块的叙述中，错误的是( )。
单选题执行以下程序段 a$=“abbacddcba” For i=6 To 2
Step－2 X=Mid(a，i，i)
Y=Left(a，i)
z=Right(a, i) z=Ucase(X & Y &
z) Next i Print z 输出结果为
A.ABA
B.BBABBA
C.ABBABA
D.AABAAB
单选题窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1 Click()
x=15
Do While x>0
x=x-3
x=IIf(Int(x／5)=x／5，x+2，x)
Loop
Print x
End Sub
程序运行后，单击命令按钮Command1，输出结果为( )。
单选题在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是
A. Picture1.Picture="mypic.jpg"
B. Picture1.Image="mypic.jpg"
C. Picture1.Picture=LoadPicture("mypic.jpg")
D. LoadPicture("mypic.jpg")
单选题如下关于变体类型变量的叙述中，错误的是( )。
单选题假定有如下程序：Private Sub Form_Click()Dim N As Integer，J As IntegerN=0 J=1Do Until N＞2 N=N+1：J=J+N*(N+1) LoopPrint N；JEnd Sub运行程序，单击窗体，输出结果是
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,3,5,7,9) j=1 Fori=5 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是( )。
单选题假定在窗体上建立一个通用对话框，其名称为CommonDialog1，用下面的语句可以建立一个对话框：
CommonDialog1.Action=4
与该语句等价的语句是
____
。
单选题下面程序的功能是输出100以内所有素数：Private Sub Command1_Click() For n = 2 To 100 isprime = True k = 2 Do While k <= n / 2 And __________ If n Mod k = 0 Then isprime = False k = k + 1 Loop If isprime Then Print n End If Next nEnd Sub为使上面程序可以实现该功能，程序代码中横线处应填写的代码是
单选题假定有以下函数过程： Function Fun(S As String)As string Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S,i,1)+s1 Next i Fun=s1 End Function 在窗体上画—个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1=InputBox("请输入—个字符串") Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。