单选题假定有以下循环结构
Do Until 条件表达式
循环体
Loop
则以下正确的描述是
单选题在文本框中，要设置显示的文本颜色，应该设置{{U}} {{/U}}属性。
A. ForeColor
B. BackColor
C. FillColor
D. BackStyle
单选题窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序：Prirate Sub Commandl_Click()Dim count(10)As Integer'第1个For循环For i=0 To 9 count(i)=0 Next s=Trim(Text1，Text) strLen=Len(s)'第2个For循环 For i=1 To strLen c=Mid(s，i，1) If c＞="0"And c＜="9"Then x=Val(c)：count(i)=count(i)+1 End IfNext'第3个For循环 For i=0 To 9 Print Str(i)，count(i) NextEnd Sub运行程序后，发现不能实现题目的要求，程序应该进行的修改是
单选题某二叉树中度为2的结点有10个，则该二叉树中有( )个叶子结点。
单选题在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为
For i=1 To 3 For j=1 To 3
For k=1 To 2
x=x+3 Next k，j，i Text1.Text=str(x)
A. 21
B. 42
C. 54
D. 72
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Text1．Text：""：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text 1_Change() Text2．Text=Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是
单选题下面不属于软件设计原则的是
单选题为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click()
Dim a%,s%,k%
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是______。
单选题软件测试的过程是______。 Ⅰ．集成测试 Ⅱ．验收测试
Ⅲ．系统测试 Ⅳ．单元测试
A. Ⅰ、Ⅱ、Ⅲ、Ⅳ
B. Ⅳ、Ⅲ、Ⅱ、Ⅰ
C. Ⅳ、Ⅰ、Ⅱ、Ⅲ
D. Ⅱ、Ⅰ、Ⅳ、Ⅲ
单选题窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下：Private Sub Commandl_Click() Open"c：＼f1．txt"For Input As#1：Open"c：＼f2，txt"For Output As #2 Do While Not EOF(1) Line Input#1，str1：Print#2 str1 Loop Close End Sub以下关于上述程序的叙述中，错误的是
单选题把数学表达式表示为正确的VB表达式应该是______。
单选题设有以下函数过程：
Function fun(a As Integer，b As Integer)
Dim c As Integer
If a＜b Then
c=a:a=b:b=c
End If
c=0
Do
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数，则函数返回的是
Ａ) a、b的最大公约数 Ｂ) a、b的最小公倍数
Ｃ) a除以b的余数 Ｄ) a除以b的商的整数部分
单选题下面程序运行后，单击命令按钮，输出的结果是 Private Sub Command1_Click( ) Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4 a(i) =i Next For i = 2 To 6 b(i) =i Next str 1 = YAG (a) str 2 = YAG (b) Print "str1 ="; str1; "str2 ="; str2 End Sub Function YAG(a()As Integer) Dim t#，i% t=1 For i=LBound(a)TO UBound(a) t=t * a(i) Next YAG=t End Function
单选题执行以下程序段 Dim x As Integer， i As Integer x=0 For i=20 To Step -2 x=x+i/5 Next i 后，x的值为
单选题设有下面程序代码：
Private Sub Command1_Click()
Dim a As Variant
a=Array(22，43，23，56，87，45，67，12，98，98，56，34，23，75，64)
m=a(0)n=m
For k=1 To UBound(a)
Ifa(k)>mThen
n=m：m=a(k)
Elselfa(k)>n And a(k)<>m Then
n=a(k)
End If
Next k
Print n
End Sub
程序运行时的输出是
单选题下列程序段的执行结果为______。
x=Int(Rnd+3)
Select Case x
Case 5
Print "A Row"
Case 4
Print "B Row"
Case 3
Print "C Row"
Case Else
Print "D Row"
End Select
单选题以下不能触发滚动条Change事件的操作是
单选题鼠标拖放控件要触发两个事件，这两个事件是
单选题某人设计了一个窗体用于登录注册信息，上面有若干控件，其中接收注册时间输入的文本框名称为Text1。他希望，当要输入注册时间时能自动填写当前时间，于是编写了一行代码：Text1.Text=Date
请问，这行代码应该放入______事件的事件过程中才能达到目的。
单选题下面可以产生90～100(含90和100)的随机整数的表达式是______。 A) Int(Rnd*10+100) B) Int(Rnd*10+90) C) Int(Rnd*11+90) D) Int(Rnd*90+100)