单选题有如下程序： Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为
单选题有下列程序段，单击命令按钮执行程序后，输出结果为{{U}} {{/U}}。 Option Base
1 Private Sub Command1_Click() Dim x
x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0
s2=0 For k=1 To 10
If(x(k)＞0)Then s1=s1+x(k)
Else s2=s2+x(k)
End If Next k Y=s1/Abs(s2)
Print Y End Sub
A. 148
B. 40
C. -40
D. 3.7
单选题下列程序执行后，n的值为______。A.5050B.25C.26D.33
单选题下面列表框属性中，是数组的是
单选题窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。以下程序的功能是从顺序文件中读取数据： Pfivate Sub Commandl_Click() Dim s1 As String，s2 As String Open”c：＼d4．dat”For Append As#3 Line Input#3，sl Line Input #13，s2 Text1．Text=s1+s2 Close End Sub 该程序运行时有错误，应该进行的修改是
单选题在以下Form1窗体中没有采用的控件是()
单选题窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2．Text=UCase(Mid(Text1．Text，5，4)) End Sub 在Text2中显示的是
单选题对于文本框Text1，能够获得按键的ASCII码值的事件过程是
单选题下列叙述中正确的是( )。
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。Form1标题为“myform1”, 双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Private Sub M1_Click(Index As Integer) Form1.Caption ="myform 2" End Sub 运行时，单击按钮数组中的第1个按钮，窗体标题为
单选题下列程序段的执行结果为( )。 m=2 n=3 Do m=m+n n=n+1 Loop While m ＜ 10 Print m：n A) 1 5 B) 14 6 C) a b D) 10 25
单选题以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub A) i Mod 2= 0 B) x mod 2=0 C) I mod 2＜＞0 D) x mod 2＜＞0
单选题以下程序段中Do...Loop循环执行的次数为______。 n=5 Do if n mod 2=0 then n=n/2 else n=n*3+1 end if Loop until n=1 A) 4 B) 3 C) 5 D) 2
单选题如果改变驱动器列表框的Drive属性，则将触发的事件是
单选题有下列程序段，其输出结果是( )。 a=0:b=0 For i=-1 To -2 Step -1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a;b
单选题设a=5，b=4，c=3，d=2，下列表达式的值是( )。 3＞2*b Or a=c And b＜＞c Or c＞d
单选题实现字符转换为数值的函数是（ ）
单选题编写如下程序：
Private Sub Command1_Click()
Dim str1 As String， str2 As String
str1＝InputBox("输入一个字符串")
subf str1， str2
Print str2
End Sub
Sub subf(s1 As String， s2 As String)
Dim temp As String
Static i As Integer
i＝i＋1
temp＝Mid(s1， i， 1)
If temp<>"" Then subf s1， s2
s2＝s2 & temp
End Sub
程序运行后，单击命令按钮Command1，且输入"abcdef"，则输出结果为( )。
单选题为了使模块尽可能独立，要求( ) A．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
单选题当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。