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

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序： Private 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) Ifc>=”0”And c<=”9”Then x=Val(c)：count(i)=count(i)+1 End If Next’第3个For循环 For i=0 To 9 Print Str(i)，count(i) Next End Sub 运行程序后，发现不能实现题目的要求，程序应该进行的修改是

A．将第2个For循环的初值改为0
B．将第2个For语句改为For i=0 To 9
C．去掉x=Val(c)语句
D．将count(i)=count(i)+1改为count(x)=count(x)+1
题目列表

你可能感兴趣的试题

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序： Private 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) Ifc>=”0”And c<=”9”Then x=Val(c)：count(i)=count(i)+1 End If Next’第3个For循环 For i=0 To 9 Print Str(i)，count(i) Next End Sub 运行程序后，发现不能实现题目的要求，程序应该进行的修改是

A．将第2个For循环的初值改为0
B．将第2个For语句改为For i=0 To 9
C．去掉x=Val(c)语句
D．将count(i)=count(i)+1改为count(x)=count(x)+1
单项选择题

在窗体上画一个组合框，其名称为Combol，然后编写如下事件过程： Private Sub Form_Load() Combo1．Text=”1” For i=1 To 10 Sum=Sum+i Next i Combo1．Text=SumEnd Sub 程序运行后，输出结果为

A．在组合框的编辑区中显示1
B．在组合框的编辑区中显示不定值
C．在组合框的编辑区中显示55
D．出错信息
单项选择题

下面循环语句中在任何情况下都至少执行一次循环体的是

A．Do While＜条件＞ 循环体 Loop
B．While＜条件＞ 循环体 Wend
C．Do 循环体 Loop Until＜条件＞
D．Do Until＜条件＞ 循环体 Loop
单项选择题

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

A．把a=a-b改为a=b-a
B．把a=a-b改为a=a＼b
C．把While a>b改为While aD．把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
单项选择题

下面程序在调试时出现了死循环 Pfivate Sub Commandl_Click() n=InputBox(“请输入一个整数”) Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub

A．只有输入的n是偶数时才会出现死循环，否则不会
B．只有输入的n是奇数时才会出现死循环，否则不会
C．只有输入的n是大于1000的整数时才会出现死循环，否则不会
D．输入任何整数都会出现死循环
单项选择题

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

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

以下Visual Basic不支持的循环结构是

A．For…Next
B．For Each…Next
C．Do…Loop
D．Do…End Do
单项选择题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Commandl_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
单项选择题

编写如下程序： Privme Sub Commandl_Click() Dim xAs Integer,y As Integer x=1：y=1 Do y=x*y Ify>10 Then Exit Do Else x=x+3 End If Loop Until X<=10 Print x:yEnd Sub 程序运行后，单击命令按钮Command1，输出结果为

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

编写如下程序： Pfivme Sub Command1_Click() Dim nAs Long，SAs 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 Commandl_Click() a=10：s=0 Do s=s+a*a*a：a=a-1 Loop Until 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个名称为Commandl的命令按钮，事件过程如下： Private Sub Commandl_Click() Dim x％，y％，z％ x=InputBox(”请输入第1个整数”)：y=lnputBox(“请输入第2个整数”) Do Until x=y Ifx>y Then x=x-y Else y=y-x End if Loop Print xEnd Sub 运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为

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

窗体上有1个名称为Commandl的命令按钮，事件过程及函数过程如下： Private Sub Commandl_Click() Dim m As String m=InputBox(”请输入字符串”) Print pick_str(m) End Sub Private：Function pick_str(s As String)As Stringtemp=""：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
单项选择题

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

A．i=10 Do i=i+1 Loop Until iB．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
单项选择题

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

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

假定有如下程序： 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
单项选择题

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

A．i=5 Do i=i+1 Loop Until i<0
B．i=5 Do i=i+2 Loop Until i=l
C．i=5 Do While i>0 i=i-2 Loop
D．i=0 Do While i<1 i=i-2 Loop
单项选择题

窗体上有一个名称为Commandl的命令按钮，其单击事件过程如下： Private Sub Commandl_Click() Dim sAs 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
单项选择题

有如下程序： Function fun(ByVal num As Integer)As Integer Dim k As Integer k=l num=Abs(num) Do While hum 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
单项选择题

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

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

编写如下程序： Dim num As Integer,r As Integer,n As Integer,i As Integer，art(5)As Integer Private Sub Commandl_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 程序运行后，单击命令按钮Commandl，输出结果为

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

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

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

编写如下程序： Private Sub Commandl_Click() Dim n As Long，s As String n=InputBox(”输入一个数”1) Do While n<>0 Print n＼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
单项选择题

编写如下程序： Private Sub Commandl_Click() Dim hum 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
单项选择题

在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Commandl_Click() Dim a(3．3) For m=l To 3 For n=1 To 3 Ifn=m Or n=4．mThen a(m，n)=m+n Else a(m，n)=o 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 Commandl_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) Nextj Next i For i=1 To 3 Forj=1 To 3 Printb(i，j)； Nextj Print Next iEnd Sub 程序运行后，单击命令按钮Commandl，输出结果为

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 i=1 To 3 sum=sum+score(i，j) Nextj Print”第”&i＆”个学生的总分是：”；sum Next i End Sub 运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是

A．把外层循环语句For i=1 To 4改为For i=1 To 3内层循环语句Forj=1 To 3改为For j=1 To 4
B．把sum=0移到For i=1 To 4和Forj=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 Commandl_Click() Counter=0 For i=1 To 4 Forj=6 T0 1 Step一2 Counter=Counter+1 Nextj Next i Label1．Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是

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

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_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 Commandl_Click() Dima(5，5)As Integer For i=1 To 5 Forj=1 To 4 a(i，j)=i*2+j If a(i，j)／7=a(i，j)＼7 Then n=n+1 End If Nextj Next Print nEnd Sub 则n的值是

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

命令按钮Commandl的单击事件过程如下： Private Sub Commandl_Click() Dim a(10，10)As Integer X=0 For i=1 T0 3 Forj=1 To 3 a(i，j)=i*2 Mod j Ifx

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

设有如下程序： Option Base 1 Dim a(3，4)As Integer,b(4，3)As Integer Private Sub Commandl_Click() ’循环1 For i=1 To 3 Forj=1 To 4 b(j，i)=a(i，J) Nextj Next i ’循环2 x=b(1，1) For i=1 To 4 Forj=1 To 3 Print b(i，j)； IfX

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 i=1 To i s=s+j Nextj p=p*s Next i Print P End Sub 程序运行后，单击窗体，则输出结果是

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

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click( Dim arr_x(5，5)As Integer For i=1 To 3 For i=2 To 4 arr_x(i，j)=i*j Next i 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
单项选择题

在窗体上画一个名称为Commandl的命令按钮，并编写如下程序： 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 i Next i For i=3 To 4 For i=3 To 4 Print a(i，i)； Next i 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 Commandl_Click() Dim a(3，3)As Integer，s As Integer For i=1 To 3 For i=1 To 3 a(i，j)=i*j+i Next i Next i s=0 For i=1 To 3 s=s+a(i，4一i) Next i Print SEnd Sub 程序运行后，单击命令按钮Command1，输出结果为

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

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

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

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

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

有如下程序： Private Sub Commandl_Click() Dim i As Integer,j As Integer，sum As Integer Doj=1 Do sum=sum+j：j=j+1 Printj； Loop Until j>3 n=n+2 Loop Until n>10 Print sumEnd Sub 运行上述程序，外层Do循环执行的次数为

A．4
B．5
C．7
D．10
微信扫码免费搜题