• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

窗体上有一个名称为Command1的命令按钮，编写如下事件过程：
Private Sub Command1_Click()
i=0
Do While i＜6
For j=1 To i
n=n+1
Next
i=i+1
Loop
Print n
End Sub
运行程序，单击命令按钮时，窗体上显示的是

A．10
B．15
C．16
D．21
题目列表

你可能感兴趣的试题

单项选择题

假定有以下循环结构Do Until条件表达式循环体Loop则以下正确的描述是

A．如果“条件表达式”的值是0，则一次循环体也不执行
B．如果“条件表达式”的值不为0，则至少执行一次循环体
C．不论“条件表达式”的值是否为“真”，至少要执行一次循环体
D．如果“条件表达式”的值恒为0，则无限次执行循环体
单项选择题

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer, b As Integer)
While a＞b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是

A．把a=a-b改为a=b-a
B．把a=a-b改为a=a\b
C．把While a＞b改为While a＜b
D．把While a＞b改为While a＞=b
单项选择题

设有如下事件过程：
Private Sub Form_Click()
x=0
While x＜10
x=x+1:x=x*x
Wend
Print x
End Sub
运行程序，单击窗体，输出结果是

A．16
B．19
C．20
D．25
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=1:y=1
Do
y=x*y
If y＞10 Then
Exit Do
Else
x=x+3
End If
LoopUntil x＜=10
Print x; y
End Sub
程序运行后，单击命令按钮Command1，输出结果为

A．1 1
B．4 1
C．4 2
D．7 28
单项选择题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x＜50
x=(x+2)*(x+3):n=n+1
Loop
Text1.Text=Str(n):Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为

A．1和0
B．2和72
C．3和50
D．4和168
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim n As Long, s As String
n=InputBox("输入一个数")
Do While n＜＞0
s=s&n Mod 10:s=s&n\10 Mod 10
n=n\100
Loop
Print s
End Sub
程序运行后，单击命令按钮Command1，并输入数值123456，则输出结果为

A．654321
B．563412
C．642531
D．615243
单项选择题

下面程序计算并输出的是
Private Sub Command1_Click()
a=10:s=0
Do
s=s+a*a*a:a=a-1
LoopUntil a＜=0
Print s
End Sub

A．13+23+33…+103的值
B．10!+…+3!+2!+1!的值
C．(1+2+3+…+10)3的值
D．10个103的和
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim x%, y%, z%
x=InputBox("请输入第1个整数"):y=InputBox("请输入第2个整数")
Do Until x=y
If x＞y Then
x=x-y
Else
y=y-x
End if
Loop
Print x
End Sub
运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为

A．11
B．13
C．23
D．39
单项选择题

窗体上有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 While 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”，则在窗体上显示的内容为

A．bcai
B．cbia
C．bcais
D．cbias
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m=1:n=0
Do While m＜20
n=m+n:m=3*m+1
Loop
Print m, n
End Sub
程序运行后，单击命令按钮Command1，输出结果为

A．40 18
B．40 19
C．20 64
D．21 64
单项选择题

下列循环中，可以正常结束的是

A．i=10 Do i=i+1 Loop Until i＜1
B．i=1 Do i=i+1 Loop Until i=10
C．i=10 Do i=i+1 Loop While i＞1
D．i=10 Do i=i-2 Loop Until i=1
单项选择题

以下能够正常结束循环操作的程序段是

A．i=5 Do i=i+1 Loop Until i＜0
B．i=5 Do i=i+2 Loop Untili=1
C．i=5 Do While i＞0 i=i-2 Loop
D．i=0 Do While i＜1 i=i-2 Loop
单项选择题

窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
Private Sub Command1_Click()
Dim s As Double
s=0:i=1
Do While i＜6
s=s+i/(i+1):i=i+1
Loop Print s
End Sub
该事件过程的功能是计算一个表达式的值，该表达式是

A．1+1/2+2/3+3/4+4/5
B．1+1/2+2/3+3/4+4/5+5/6
C．1/2+2/3+3/4+4/5
D．1/2+2/3+3/4+4/5+5/6
单项选择题

假定有如下程序：
Private Sub Form_Click()
Dim N As Integer, J As Integer
N=0 J=1
Do Until N＞2
N=N+1:J=J+N*(N+1)
Loop
Print N; J
End Sub
运行程序，单击窗体，输出结果是

A．3 21
B．3 7
C．0 1
D．3 13
单项选择题

有如下程序：
Function fun(ByVal num As Integer)As Integer
Dimk As Integerk=1
num=Abs(num)
Do While num
k=k*(num Mod 10):num=num\10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer, r As Integer
n=InputBox("请输入一个数:"):n=Int(n):r=fun(n):Print r
End Sub
程序运行后，单击窗体，在输入对话框中输入246，输出结果为

A．120
B．48
C．24
D．60
单项选择题

下面程序的功能是输出100以内所有素数：
Private Sub Command1_Click()
For n=2 To 100
isprime=True:k=2
Do Whilek＜=n/2 And ______
If n Mod k=0 Then isprime=False
k=k+1
Loop
If isprime Then Print n
Next n
End Sub
为使上面程序可以实现该功能，程序代码中横线处应填写的代码是

A．isprime
B．Not isprime
C．n＜100
D．n＜=100
单项选择题

编写如下程序：
Dim num As Integer, r As Integer, n As Integer, i As Integer, arr (5) As Integer
Private Sub Command1_Click()
num=12:r=2
Call sub1(num, r, n)
For i=n To 1 Step-1
Print arr(i);
Next i
End Sub
Sub sub 1(d As Integer, r As Integer, k As Integer)
k=0
Do While d＜＞0
k=k+1:arr(k)=d Mod r:d=d\r
Loop
End Sub
程序运行后，单击命令按钮Command1，输出结果为

A．1 1 0 0
B．0 0 1 1
C．0 1 0 1
D．1 0 1 0
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim n As Long, s As String
n=InputBox("输入一个数")
Do While n＜＞0
Printn\10 Mod 10; :Print n Mod 10; :n=n\100
Loop
Print s
End Sub
程序运行后，单击命令按钮Command1，并输入数值123456，则输出结果为

A．6 5 4 3 2 1
B．5 6 3 4 1 2
C．6 4 2 5 3 1
D．6 1 5 2 4 3
单项选择题

假定有以下程序段
For i=1 To 3
For i=5 To 1 Step-1
Print i*j
Next j
Next i
则语句Printi*j的执行次数是

A．15
B．16
C．17
D．18
单项选择题

在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3, 3)
For m=1 To 3
For n=1 To 3
Ifn=m Or n=4-m Then
a(m, n)=m+n
Else
a(m, n)=0
End If
Print a(m, n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为

A．2 0 0 0 4 0 0 0 6
B．2 0 4 0 4 0 4 0 6
C．2 3 0 3 4 0 0 0 6
D．2 0 0 0 4 5 0 5 6
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim num As Integer, k As Integer, n As Integer
num=InputBox("请输入一个正整数:")
k=num n=2
Do
Do While num Mod n=0
Print n::num=num/n
Loop
n=n+1
Loop Until n＞k/2
End Sub
程序运行后，单击命令按钮Command1，并输入数值20，则输出结果为

A．2 2 5
B．2 3 4
C．2 3 4 5
D．2 5
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim a(3, 3) As Integer, b(3, 3) As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i+j: b(i, j)=a(i, j)+i*(j-1)
Next j
Next i
For i=1 To 3
For j=1 To 3
Print b(i, j);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮Command1，输出结果为

A．2 3 4 3 4 5 4 5 6
B．2 4 6 3 6 9 4 8 12
C．3 5 7 5 8 11 7 11 15
D．4 6 8 7 10 13 10 14 18
单项选择题

已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Command1_Click()
Dim sum As Integer
sum=0
For i=1 To 4
For j=1 To 3
sum=sum+score(i, j)
Next j
Print"第"& i &"个学生的总分是:"; sum
Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是

A．把外层循环语句For i=1 To 4改为For i=1 To 3内层循环语句For j=1 To 3改为For j=1 To 4
B．把sum=0移到For i=1 To 4和For j=1 To 3之间
C．把sum=sum+score(i，j)改为sum=sum+score(j，i)
D．把sum=sum+score(i，j)改为sum=score(i，j)
单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
Private Sub Command1_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step-2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是

A．11
B．12
C．16
D．20
单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim I, Num
Randomize
Do
For I=1 To 1000
Num=Int(Rnd*100):Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65, 68, 92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后，下列描述中正确的是

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束
单项选择题

运行如下程序
Private Sub Command1_Click()
Dim a(5, 5)As Integer
For i=1 To 5
For j=1 To 4
a(i, j)=i*2+j
If a(i, j)/7=a(i, j)\7 Then
n=n+1
End If
Next j
Next
Print n
End Sub
则n的值是

A．2
B．3
C．4
D．5
单项选择题

命令按钮Command1的单击事件过程如下：
Private Sub Command1_Click()
Dim a(10, 10)As Integer
x=0
For i=1 To 3
For j=1 To 3
a(i, j)=i*2 Mod j
If x＜a(i, j) Then x=a(i, j)
Next
Next
Print x
End Sub
执行上述事件过程后，窗体上显示的是

A．1
B．2
C．3
D．4
单项选择题

设有如下程序：
Option Base 1
Dim a(3, 4)As Integer, b(4, 3) As Integer
Private Sub Command1_Click() "循环1
For i=1 To 3
For i=1 To 4
b(j, i)=a(i, j)
Next j
Next i "循环2
x=b(1, 1)
For i=1 To 4
For j=1 To 3
Print b(i, j);
If x＜b(i, j) Then x=b(i, j)
Next j
Print
Next i
End Sub
程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是

A．窗体模块中，不能使用Dim声明a、b数组
B．“循环1”可以正常运行
C．“循环2”中循环变量i、j的终值不对，所以不能正常运行
D．程序可以正常运行，x中保存的是数组b中所有元素中最小的数
单项选择题

有如下程序：
Private Sub Form_Click()
Dim s As Integer, p As Integer
p=1
For i=1 To 4
For j=1 To i
s=s±j
Next j
p=p*s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是

A．90
B．180
C．400
D．800
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim art_x(5, 5)As Integer
For i=1 To 3
For j=2 To 4
arr_x(i, j)=i*j
Next j
Next i
Print arr_x(2, 1); arr_x(3, 2); arr_x(4, 3)
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为

A．0 6 0
B．2 6 0
C．0 6 12
D．2 6 12
单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Option Base 1
Private Sub Command1_Click() Dim a(4, 4)
For i=1 To 4
For j=1 To 4
a(i, j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(j, i);
Next j
Print
Next i
End Sub
运行程序，单击命令按钮，则输出结果为

A．6 9 7 10
B．7 10 8 11
C．8 11 9 12
D．9 12 10 13
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim a(3, 3) As Integer, s As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i*j+i
Next j
Next i
s=0
For i=1 To 3
s=s+a(i, 4-i)
Next i
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为

A．7
B．13
C．16
D．20
单项选择题

编写如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
n=InputBox("输入一个大于1的正整数")
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j＞Sqr(i) Then Print i
Next i
End Sub
该程序的功能是

A．判断n是否为素数
B．输出n以内所有的奇数
C．输出n以内所有的偶数
D．输出n以内所有的素数
单项选择题

命令按钮Command1的事件过程如下：
Private Sub Command1_Click()
Dim art(5, 5)As Integer
Dim i As Integer, j As Integer
For i=1 To 4
For j=2 To 4
arr(i, j)=i+j
Next j
Next i
Print arr(1, 3)+arr(3, 4)
End Sub
执行上述过程，输出结果是

A．6
B．7
C．11
D．12
单项选择题

有如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
n=1
Do j=1
Do
sum=sum+j:j=j+1 Print j;
Loop Until j＞3
n=n+2
Loop Until n＞10
Print sum
End Sub
运行上述程序，外层Do循环执行的次数为

A．4
B．5
C．7
D．10
单项选择题

设有如下事件过程：
Private Sub Command1_Click()
For i=1 To 5
j=1
Do
Print"*"j=j-1
Loop Until j=0
Next i
End Sub
运行程序，输出“*”的个数是

A．5
B．15
C．20
D．25
单项选择题

设有如下事件过程：
Private Sub Command1_Click() Dim a
a=Array(3，5，6，3，2，6，5，3，5，4，3，9，4，5，6，3，5)
x=0 n=UBound(a)
For i=0 To n
m=0
For j=0 To n
If a(i)=a(j) Then
m=m+1
End If
Next j
If m＞x Then
x=m:b=a(i)
End If
Next i
Print b
End Sub
运行程序，输出是

A．2
B．3
C．5
D．9
单项选择题

窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
Private Sub Command1_Click()
For i=3 To 1 Step-1
Sum=0
For i=1 To i
Sum=Sum+i*j
Next
Next
Print Sum
End Sub
运行程序时，单击命令按钮，则窗体上显示的是

A．1
B．6
C．18
D．25
单项选择题

窗体上有一个名称为Command1的命令按钮，编写如下事件过程：
Private Sub Command1_Click()
i=0
Do While i＜6
For j=1 To i
n=n+1
Next
i=i+1
Loop
Print n
End Sub
运行程序，单击命令按钮时，窗体上显示的是

A．10
B．15
C．16
D．21
微信扫码免费搜题