vb循环结构选择题(5)

来源：网络收集时间：2026-08-27

导读：　　 Wend 　　 If s \　　 Text1 = s 　　 End If 　　End Sub 　 A、-1 B、0 C、1 D、+1 　69、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n-r）� ４疤逯杏�3个文本框的名称

　　 Wend

　　 If s <> \　　 Text1 = s 　　 End If 　　End Sub 　 A、-1

B、0 C、1 D、+1

　69、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n-r）！。窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请填空。　　Private Sub Command1_Click( ) 　　 Dim r As Integer, n As Integer 　　 n = Text1 　　 r = Text2

　　 Text3 = fun(n) / fun(n-r) / fun(r) 　　End Sub

　　Function fun(n As Integer) as long 　　 Dim t As Long 　 _____B_______ 　　 For k = 1 To n 　　 t = t * k 　　 Next 　　 fun = t

　　End Function

A、t=0 B、t=1 C、k=0 D、k=1

70、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。　　

　　Private Sub Command1_Click( ) 　　 Dim k As Integer

　　 Dim sum As Single, max As Single, min As Single 　　 sum = Text1(0) 　　 max = Text1(0) 　　 min = ____C______ 　　 For k = 0 To 6

　　 If max < Text1(k) Then 　　 max = Text1(k) 　　 End If

　　 If min > Text1(k) Then 　　 min = Text1(k) 　　 End If

　　 sum = sum + Text1(k) 　　 Next k

　　 Text2 = (sum-max-min ) / 5 　　End Sub

A、text1(1) B、text(0) C、text1(0) D、text2(0)

71、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。　　 Private Sub Command1_Click( ) 　　 Dim k As Integer

　　 Dim sum As Single, max As Single, min As Single 　　 sum = Text1(0) 　　 max = Text1(0) 　　 min = Text1(0) 　　 For k = 0 To 6

　　 If max < Text1(k) Then 　　 max = Text1(k) 　　 End If

　　 If min > Text1(k) Then 　　 min = Text1(k) 　　 End If

　　 sum = sum + Text1(k) 　　 Next k

　　 Text2 = (______D_______) / 5 　　End Sub

A、max B、min C、sum

D、sum-max-min

72、在窗体中添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件过程：

Private Sub Command1_Click( ) Dim I as integer,n as integer For i=0 to 50 I=i+3

N=n+1

If I >10 then exit for Next

Text1.text=str(n) End sub

程序运行后,单击命令按钮,在文本框中显示的值是( C )

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

73、在窗体中添加一个命令按钮Command1，然后编写如下事件过程：

Private Sub Command1_Click( )

Dim I as integer，j as integer Dim a（10，10） as integer For i=1 to 3

For ji=1 to 3

A（i，j）=（i-1）*3+j Print a（i，j）； Next j Next i End sub

程序运行后,单击命令按钮,显示的值是( D )

A、1 2 3 2 4 6 3 6 9 B、2 3 4 3 4 5 4 5 6 C、1 4 7 2 5 8 3 6 9 D、1 2 3 4 5 6 7 8 9

74、以下Case 语句中错误的是（ C ）

A、Case 0 to 10 B、Case Is >10

C、Case Is>10 and Is < 50 D、Case 3,5,Is > 10

75、在窗体中添加一个命令按钮Command1，然后编写如下事件过程：

Private Sub Command1_Click( )

C=123

C1=Trim（str（C）） For i=1 to 4

Print ____________ Next

End sub

程序运行后,单击命令按钮,下划线上填( B )时在窗体上显示的值是 1 12 123 1234

A、right(c1,i) B、left(c1,i) C、mid(c1,I,1) D、mid(c1,i)

76、在窗体中添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件过程：

Private Sub Command1_Click( ) N=val（text1.text） For i=2 to n

For j=2 to sqr(i)

If I mod j=0 then exit for Next j Next i End sub

该事件过程的功能是(C) A、输出n以内的奇数 B、输出n以内的偶数 C、输出n以内的素数 D、输出n以内的整数 77、

…… 此处隐藏：715字，全部文档内容请下载后查看。喜欢就下载吧 ……

vb循环结构选择题(5).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wendang/444215.html（转载请注明文章来源）

上一篇：基于关联分析的学生活动参与度与高校社团管理实证研究
下一篇：2010年天津市河西区小升初语文试卷