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

有如下程序： Function fun(ByVal nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile 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
题目列表

你可能感兴趣的试题

单项选择题

窗体上有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 Wbile 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=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=l 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 nuin As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do Wbile 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
单项选择题

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

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

下面程序的功能是输出100以内所有素数： Private Sub Command1_Click() For n=2 To 100 isprime=True：k=2 Do While k＜=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 ilum As Integer，r As Integer，n As Integer，i As Integer，art(5)As Integer Private Sub Command1_Click() num=12：r=2 Call subl(num，r，n) For i=n To 1 Step -1 Print art(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 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
单项选择题

假定有以下程序段 For i=l To 3 For i=5 To 1 Step-1 Print i*j Next i Next i 则语句Print i*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 If n=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 sum=InputBox("请输入一个正整数：") k=sum n=2 Do Do While sum 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 i Next i For i=1 To 3 For i=1 To 3 Print b(i，j)； Next i 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 Base1 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) 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=slim+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 i Next i Label 1．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 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 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 Forj=1 To 3 a(i，j)=i*2 Mod j Ifx

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

设有如下程序： Option Base1 Dim a(3，4)As Integer，b(4，3)As Integer Private Sub Command1_Click() ’循环1 For i=1 To 3 Forj=l To 4 b(j，i)=a(i，j) Next j 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 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 i Next i Print arr_x(2，1)；arr_x(3，2)；art_x(4，3) End Sub 运行程序，并单击命令按钮，窗体上显示的内容为

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

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Option Base1 Private Sub Command1_Click()Dim a(4，4) For i=1 To 4 For i=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(j，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 Command1_Click() Dim a(3，3)As Integer，s As Integer For i=l To 3 For j=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 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 Forj=2 To Sqr(i) Ifi Modj=0 Then Exit For Nextj ifj>Sqr(i)Then Print i Next 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 Next i Print art(1，3)+arr(3，4) End Sub 执行上述过程，输出结果是

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

有如下程序： 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 Printj； Loop Until j>3 n=n+2 Loop Until n>10 Print sum End Sub 运行上述程序，外层Do循环执行的次数为

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