最新VB程序设计作业(二)答案.doc

上传人:1595****071 文档编号:49266252 上传时间:2022-10-08 格式:DOC 页数:16 大小:157.50KB
返回 下载 相关 举报
最新VB程序设计作业(二)答案.doc_第1页
第1页 / 共16页
最新VB程序设计作业(二)答案.doc_第2页
第2页 / 共16页
点击查看更多>>
资源描述

《最新VB程序设计作业(二)答案.doc》由会员分享,可在线阅读,更多相关《最新VB程序设计作业(二)答案.doc(16页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB程序设计作业(二)答案VB程序设计作业(二)答案VB程序设计作业(二)客观题部分:选择题(每题1分,共15题)1. 当VB执行下面语句后,A的值为( A )。A=1 IF A0 THEN A=A+1 IF A1 THEN A=0A)0 B)1 C)2 D)32. 当VB执行下面语句后,输出的结果是( B )。Private Sub Form_Click()scor

2、e = Int(Rnd * 10) + 30 Select Case score Case Is 8 x = x * y y = y +1 Loop Print xA)2 B)9C)10D)167. 用下面的语句所定义的数组的元素个数是( D )。Dim A(-3 To 5) As IntegerA)6 B)7C)8D)98. 阅读下面的程序段:For i=1 To 2 For j=1 To I For k=j To 2 x=x+1 Next k Next j Next i执行上面的三重循环后,x的值为( C )。A) 3B) 4C) 5D) 69. 在窗体上画一个命令按钮,然后编写如下事件过

3、程:Private Sub Command1_Click()For i=1 To 3 x=2 For j =1 To 2 x=4 For k=1 To 3 x=x+5 Next k Next j Next iPrint x End Sub程序运行后,单击命令按钮,输出结果是( B )。A) 11 B) 19 C) 57 D) 6310. 在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,然后编写如下事件过程:Private Sub Command1_Click()x=1 Do While x50 x=(x+1)*(x+2) n=n+1 Loop Text1.Text=S

4、tr(n) Text2.Text=Str(x) End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别为( B )。A) 1和0 B) 2和56C) 3和 70 D) 4和16811. 以下正确的叙述是( C )。A) Select Case语句中的测试表达式可以是任何形式的表达式B) Select Case语句中的测试表达式只能是数值表达式或字符串表达式C) 在执行Select Case语句时,所有Case子句均按出现的次序被顺序执行D) 如下Select Case语句中的Case表达式是错误的:Select Case x Case 1 to 10 End Select12. 在

5、窗体上绘制一个命令按钮Command1,然后编写如下程序:Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5) j = 1 For i = 5 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub运行程序,单击命令按钮,输出结果为( B )。A)54321 B)12345 C)1234 D)432113. 在窗体上绘制一个命令按钮Commandl,编写以下事件过程:PrivateSubCommandl_C1ick()Dimb b

6、Array(1,2,3,4,5) EndSub此过程的功能是把数组b中的5个数逆序存放。为了实现此功能,省略号处的程序段应该是( C )。A) Fori0To5-12tmpb(i) b(i)b(5-i-1)b(5-i-1)tmpNextiB) Fori0To5tmp=b(i)b(i)b(5-i-1)b(5-i-1)=tmpNextiC) Fori0To52tmpb(i)b(i)b(5-i-1)b(5-i-1)=tmpNextiD) Fori1To 52b(5-i-1)tmptmp=b(i) b(i)b(5-i-1)Nexti14. 在窗体上绘制一个命令按钮Commandl,编写以下事件过程:O

7、ption Base 1Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = 2 * i + j Next j Next i For i = 2 To 3 For j = 2 To 3 Print a(j, i) Next j Next iEnd Sub程序运行后,单击命令按钮,输出的结果是( C )。A) 5B)6 C) 6 D)56 7 8 77 8 7 68 9 9 815. 设有函数y,下面不能正确求得函数值的程序段是( D )。A) Select Case

8、 xCase Is 0y=x*xEnd SelectB) If x0 Then y=x*xEnd IfIf x=0 Theny=0End IfIf x0 Theny=xEnd IfC) If x 0 Then y = y * x Else y = 0 End If End IfD) If x0 Theny=x*xElsey=0End If主观题部分:编程题(每题15分,共1题) 编程实现一个窗体Form的click事件,单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+.+n的值,如果和已经大于1000则停止计算。Private Sub Command1_Click()Dim i As IntegerDim n As IntegerDim s As Integeri = 0s = 0n = InputBox(请输入整数n)Do While (s = nPrint 1+2+3+.+n= & sEnd Sub-

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 教育专区 > 高考资料

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁