单项选择题

设有如下程序： Private Sub Command1_Click() 　　Dim c As Integer,d As Integer 　　c=4 　　d=InputBox("请输入一个整数") 　　Do While d＞0 　　　If d＞c Then 　　　　c=c+1 　　　End If 　　　d=InputBox("请输入一个整数") 　　Loop 　　Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9和0，则输出结果是( )。

A．12
B．11
C．10
D．9

<上一题目录下一题>

热门试题

单项选择题

设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。

A．30
B．25
C．20
D．15

单项选择题

单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr= abcdef Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr= strLen=Len(xStr) i=1 Do While i＜=strLen 2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion

A．abcdef
B．fed
C．fedcba
D．defabc

相关试题