在窗体上画1个名称为Command1的命令按钮，并编写如下事件过程： ...

单项选择题

有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign=1 a=1：b=2 For k=l To 5 c=a+sign*b a=b：b=c Print c： sign=-sign Next k End Sub 程序运行后，单击命令按钮Command1，输出结果是

A．3 -1 2 -3 -1
B．3 5 8 13 21
C．-1 1 -2 -1 -1
D．3 4 5 6 7

单项选择题

编写如下程序： Private Sub Command1_Click() Dim a(10)As String s="123456"：n=Len(s) For k=1 To n a(k)=Mid(s，k，1) Next k For i=1 To n＼2 t=a(i) a(i)=a(n-i+1)：a(n-i+1)=t Next i For k=l To n Print a(k)； Next k End Sub 程序运行后，单击命令按钮Command1，输出结果为

A．654321
B．123456
C．654123
D．123654

单项选择题

设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String，ch As String s=""For k=1 To Len(Text1)ch=Mid(Text1，k，1)s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是

A．Basic
B．cis．aB
C．BASIC
D．CISAB

单项选择题

某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10)As Integer，max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 Ifa(k)>max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是

A．把Ifa(k)>max Then改为Ifa(k)B．把max=a(k)改为a(k)=max
C．把第2个循环语句For k=1 To 10改为For k=2 To 10
D．把max=0改为max=a(10)

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3：n=n+1 Ifi>10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是

A．2
B．3
C．4
D．5

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base1 Private Sub Command1 Click(1) Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 s=s+a(i)j：j=j10 Next i Print s End Sub 运行上面的程序，其输出结果是

A．1234
B．12
C．34
D．4321

单项选择题

窗体上有1个名称为Command1的命令按钮；1个名称为List1、没有列表项的列表框。编写如下程序： Private Sub Command1_Click() Dim x As String，s As String，temp As String Dim i As Integer x=InputBox("输入字符串"，"输入") Ifx<>""Then For i=Len(x)To 1 Step-1 s=Mid(x，i，1) If S<>""Then temp=s+temp Else List1．AddItem temp s=""：temp="" End If Next List1．AddItem temp Else MsgBox"输入内容为空!" End If End Sub 程序运行后，单击命令按钮Command1，并输入“Happy new year”，则在List1中显示的内容为

A．year new Happy
B．Happy new year
C．raey wen yppaH
D．yppaH wen raey

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click0 Dim iAs Integer，n As Integer For i=0 To 50 i=i+3：n=n+1 Ifi>10 Then Exit For Next Text1．Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是

A．2
B．3
C．4
D．5

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click() d=0：c=10：x=Array(10，12，21，32，24) For i=l To 5 Ifx(i)>c Then d=d+x(i)：c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A．89
B．99
C．23
D．77

单项选择题

在窗体上画1个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x=1：s=0 For i=1 To 5 x=x／i：s=s+x Next Print s End Sub 该事件过程的功能是计算

A．s=1+2+3+4+5q
B．s=1+1／2+1／3+1／4+1／5
C．s=1+1／2!+1／3!+1／4!+1／5!
D．s=1+1／(1*2)+1／(2*3)+1／(3*4)+1／(4*5)

单项选择题

有如下程序： Private Sub Form_Click() Dim i As Integer，n As Integer For i=1 To 20 i：i+4：n=n+i Ifi>10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是

A．14
B．15
C．29
D．30

单项选择题

有以下通用过程： Function fun(N As Integer) s=0 For k=1 To N s=s+k*(k+1) Next k fun=s End Function 该过程的功能是

A．计算N!
B．计算1+2+3+…+N
C．计算1×2×2×3×3×…×N×N
D．计算1×2+2×3+3×4+…+N×(N+1)

单项选择题

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

A．110
B．123
C．1234
D．4321

单项选择题

在窗体上画一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() n=0 For i=0 To 10 X=2*i=1 IfX Mod 3=0 Then n=n+1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是

A．1
B．3
C．5
D．7

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序： Private Sub Command1_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 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() Combol．Text="1" For i=1 To 10 Sum=Sum+i Next i Combol．Text=Sum End 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 Wend fun=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

单项选择题

下面程序在调试时出现了死循环 Private Sub Command1_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 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．l和0
B．2和72
C．3和50
D．4和168

单项选择题

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

A．1 1
B．4 1
C．4 2
D．7 28

单项选择题

编写如下程序： Private Sub Command1_Click() Dim nAs 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+aaa：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个名称为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() x=1：s=0 For i=1 To 5 x=x／i：s=s+x Next Print s End Sub 该事件过程的功能是计算

你可能感兴趣的试题

有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign=1 a=1：b=2 For k=l To 5 c=a+sign*b a=b：b=c Print c： sign=-sign Next k End Sub 程序运行后，单击命令按钮Command1，输出结果是

编写如下程序： Private Sub Command1_Click() Dim a(10)As String s="123456"：n=Len(s) For k=1 To n a(k)=Mid(s，k，1) Next k For i=1 To n＼2 t=a(i) a(i)=a(n-i+1)：a(n-i+1)=t Next i For k=l To n Print a(k)； Next k End Sub 程序运行后，单击命令按钮Command1，输出结果为

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base1 Private Sub Command1 Click(1) Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是

在窗体上画1个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x=1：s=0 For i=1 To 5 x=x／i：s=s+x Next Print s End Sub 该事件过程的功能是计算

有如下程序： Private Sub Form_Click() Dim i As Integer，n As Integer For i=1 To 20 i：i+4：n=n+i Ifi>10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是

有以下通用过程： Function fun(N As Integer) s=0 For k=1 To N s=s+k*(k+1) Next k fun=s End Function 该过程的功能是

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

在窗体上画一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() n=0 For i=0 To 10 X=2*i=1 IfX Mod 3=0 Then n=n+1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是

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

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

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

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

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

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

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

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

编写如下程序： Private Sub Command1_Click() Dim nAs 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，则输出结果为

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

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base1 Private Sub Command1 Click(1) Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 s=s+a(i)j：j=j10 Next i Print s End Sub 运行上面的程序，其输出结果是

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

下面程序计算并输出的是 Private Sub Command1_Click() a=10：s=0 Do s=s+aaa：a=a-1 Loop Until a<=0 Print s End Sub