教学文库网 - 权威文档分享云平台

工作总结工作计划工作报告心得体会论文大全行业范文文秘资料公文资料稿件大全资料大全祝福语大全观后感大全读后感大全节日庆典大全入团入党申请书经典范文经典美文情感美文爱情美文哲理美文日记随笔励志故事语句摘抄经典语录签名说说微小说散文诗歌优美句子小学生作文初中作文高中作文考试作文幼儿教育小学教育初中教育教学研究专业资料资格考试教育文库外语考试高等教育求职职场高中教育实用文档学前教育基础教育高等教育资格考试法律文档建筑文档互联网资料行业资料政务民生说明书实用模板综合文档小学资料初中资料高中资料课后答案阅读练习学习方法学科资料知识积累读书笔记教学设计

您的当前位置：首页 > 精品文档 > 互联网资料 >

vb循环结构选择题(4)

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

导读：　　程序运行后，单击窗体，输出结果是(A) 　 A、81 4 B、56 3 　 C、28 1 D、243 5 58、有如下程序：　　 Private Sub Form_Click() 　　 Dim i As Integer, sum As Integer 　　 sum = 0 　　 For i = 2 To 10

　　程序运行后，单击窗体，输出结果是(A) 　 A、81 4

B、56 3 　 C、28 1

D、243 5 58、有如下程序：

　　 Private Sub Form_Click()

　　 Dim i As Integer, sum As Integer 　　 sum = 0

　　 For i = 2 To 10

　　 If i Mod 2 <> 0 And i Mod 3 = 0 Then 　　 sum = sum + i 　　 End If 　　 Next i 　　 Print sum 　　 End Sub

　　程序运行后，单击窗体，输出结果为（A）　　 A、12

B、30 C、24 D、18 59、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click() 　　 Dim array1(10, 10) As Integer 　　 Dim i As Integer, j As Integer 　　 For i = 1 To 3 　　 For j = 2 To 4

　　 array1(i, j) = i + j 　　 Next j 　　 Next i

　　 Text1.Text = array1(2, 3) + array1(3, 4) 　　End Sub

　　程序运行后，单击命令按钮，在文本框中显示的值是（ A ）　　 A、12

B、3 C、14 D、15 　　

60、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：　　Private Sub Command1_Click() 　　 Dim a1(4, 4), a2(4, 4) 　　 For i = 1 To 4 　　 For j = 1 To 4

　　 a1(i, j) = i + j

　　 a2(i, j) = a1(i, j) + i + j 　　 Next j 　　 Next i

　　 Print a1(3, 3); a2(3, 3) 　　End Sub

　　程序运行后，单击命令按钮，在窗体上输出的是（D）　　 A、6 6

B、10 5 C、7 21 D、6 12 　　

　61、有如下程序：　　Option Base 1

　　Private Sub Form_Click() 　　 Dim arr, Sum 　　 Sum = 0

　　 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) 　　 For i = 1 To 10

　　 If arr(i) / 3 = arr(i) \\ 3 Then 　　 Sum = Sum + arr(i) 　　 End If 　　 Next i 　　 Print Sum 　　End Sub

　　程序运行后，单击窗体，输出结果为（C）　　 A、25

B、26 C、27 D、28 　　

62、在窗体上画一个命令按钮，然后编写如下事件过程：　　Private Sub Command1_Click() 　　 Dim a(5) As String 　　 For i = 1 To 5

　　 a(i) = Chr(Asc(\　　 Next i

　　 For Each b In a 　　 Print b; 　　 Next 　　End Sub

　　程序运行后，单击命令按钮，输出结果是（A）　　 A、ABCDE

B、1 2 3 4 5

　　 C、abcde

D、出错信息　　

63、设有以下函数过程：

　　Function fun(m As Integer) As Integer 　　 Dim k As Integer, sum As Integer 　　 sum = 0

　　 For k = m To 1 Step -2 　　 sum = sum + k 　　 Next k 　　 fun = sum 　　End Function

　　若在程序中用语句 s = fun(10) 调用此函数，则s的值为（A） A、30

B、26 C、27 D、28 64、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。　　Private Sub Command1_Click( )

　　 Dim str As String, s As String, c As String 　　 str = UCase(Text1) 　　 s = \　　 c = \

　　 While c >= \

　　 If InStr(str, c) = 0 Then 　　 s = C 　　 End If

　　 c = Chr$(Asc(c)-1 ) 　　 Wend

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

B、s

C、s & c D、0

65、在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) / C / fun(r) 　　End Sub

　　Function fun(n As Integer) as long 　　 Dim t As Long 　 t=1

　　 For k = 1 To n 　　 t = t * k 　　 Next 　　 fun = t

　　End Function

A、fun（n） B、fun（m） C、fun（n-r） D、fun（r-n）

66、以下是一个比赛评分程序。在窗体上建立一个名为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 = __A___ 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、0 B、1

C、-1 D、2

67、在列表框List1中已经有若干人的简单信息，运行时在Text1文本框输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。　

　　Private Sub Command1_Click()

　　 Dim k As Integer, n As Integer, found As Boolean 　　 found = False

　　 n = Len(____A______ ) 　　 k = 0

　　 While k < List1.ListCount And Not found 　　 If Text1 = Left$(List1.List(k), n) Then 　　 Text2 = List1.List(k).name 　 found = True 　　 End If 　　 k = k + 1 　　 Wend

　　 If Not found Then 　　 Text2 = \查无此人\　　 End If 　　End Sub

A、text1.text B、text1 C、text2

D、text2.text

　68、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。　　Private Sub Command1_Click( )

　　 Dim str As String, s As String, c As String 　　 str = UCase(Text1) 　　 s = \　　 c = \

　　 While c >= \

　　 If InStr(str, c) = 0 Then 　　 s =s & c 　　 End If

　　 c = Chr$(Asc(c) ___A_____ )

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

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

下载这篇word文档

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

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

相关推荐：

互联网资料

热门排行

最新推荐

Copyright © 2020-2025 教文网版权所有
声明 :本网站尊重并保护知识产权，根据《信息网络传播权保护条例》，如果我们转载的作品侵犯了您的权利,请在一个月内通知我们，我们会及时删除。
客服QQ：78024566 邮箱：78024566@qq.com
苏ICP备19068818号-2

Top

× 常见问题（客服时间：周一到周五 9:30-18:00）

1、支付成功后，为何无法下载内容？
付费后下载不了，请核对下微信账单信息，确保付费成功；已付费成功了还是下载不了，有可能是电脑的浏览器兼容性问题或者手机机型不支持的问题。
2、付费后能否更换浏览器或者清理浏览器缓存后进行下载操作？
更换浏览器或者清理浏览器缓存会导致下载不成功，请不要更换浏览器和清理浏览器缓存。
3、如何联系客服？
打开微信扫描下方二维码，请及时联系客服解决。
QQ咨询：370150219 ，请把【付款记录详情】截图给客服，同时把您购买的文章【网址】发给客服。客服会在24小时内把文档发送给您。