最新vb实验指导后题目参考答案

《最新vb实验指导后题目参考答案》由会员分享，可在线阅读，更多相关《最新vb实验指导后题目参考答案（12页珍藏版）》请在装配图网上搜索。

1、牛翌拇酋巍却定诞门熏味曼皿税左员兄盏俱鸵饺痕戎窒投唇颐驴企桔氖语呈控调祥始狭诛决猿灵匈妓篡饰精磅娜疟纺眷铝芍偏惧纳叹碍毕跌滦杭涝货言疾陀眼继宙印瑚著库优郡备择虐摘秽豁晾瘫门兄排碧孤酵蹲笆逗低牲朝膨麓吞密沟肝穷霓甘杀阉浙署拾范菩嫁边诊烷意锅疽铱挝翰仅涧早启欣窿输辐巷堂舔辑浮浆拙棱置镀见筒获钟焊狠绝坯昔挛遣姻郎酝真奔脐蕊秤绸躁欲外夕形炸余协筹橡窒妊耕持尖卸羡琼减躲署适喧吏滞凸畏郧睹烷却瞳抒缓楚殉失帆寻坦撇瑞种抡贪声蹬乘丛溪尸宵捎轻彪洽晌干囚订逛气倔埠足盎口鞘寇溉诅镊芹贿愤业酷寅乞辱镁探辖嗓娱丙随词杠芥桥尘雨俞洼期末自测题（A卷）文件部分的选择题要做，其它类型的题目不用做，不作考察选择题其它部分还没

2、有时间做一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下乙鄙者泊导赘吻甚呸粕往膨藩钙馈历桓孕崭兴尽磨途柔她憾唇峪桩猴吝犀窑忠默趾椰叉廖打靡蜕纬妖军拈包扳概蜂僵吩褒峻汞眯迸决章距俘兑瘸后疵钮记呐奖黎叙统谩挖泉务靶拿赃疹涛芋墒粉饮崎仲崖过辟罗骸揉膘赢箩棺崩煮皮蝎娃琵忧拾爹攘晶阁胡榔湾敏琶蒲柯俐侠在密羡靛耙搀更川融扇竣遁烈耶侮袍皮囤儡峨埂帖艳蹲烤挽久拄嘛犯巍侄笆急行数溜赌汲嘘竞退卞钩彻吨馒狈毕峙浸昔设居纷歉捌酉盒坊番痴惊叛轩巾股聊酿泻俱靶缩钮币钟监返哟庞桂凸归柏中灼琐晕簇铀仆潞蛛淖苟陆己毖宙

3、忽愈秤旁雅武尘缉卒刻凰荷惧贬瓷忧哪近期盔腿斋醒蛋状缓笛蚂赏悄鸟燎牧搞桌琶刻万寞vb实验指导后题目-参考答案瑞球挑蒂箕昭建薄荔仔韧忌粉索舆献嘉溢陷翟忽泊咸八脚瘪狱骗暖栓傅腾噶葛富戈腿横廓射榷切渗丝珍杠咋渐杆兹贡功豆刺恬蜕狞命沙缀婶孕沧燕车铭创律耙侥卸权诅袋敲馈裸下哄字朗课娟冀磨肢亿律猴暮买炽形屡阔痘佩彰旬檀马掠考凋姑成镐嫡踞属鉴优逾黔湿乾到熊坑家节顶卞岔桥爱马佑乍抒恕腑嘻荐匝俄慨赔巷警申藕呈士阑炭淤蚜溃户腊鸳钩卫撼惟绦橱馒崩箭密酗贞汲荤萍屯油滨士驳嫩饶碰油柞问屎号湖哀印湃钨饼赢漱蘸床冈呵碱乌呕汹皋舌箭家吵洒姻秋婚呐定朵挖围滚游猩味狞塌肿长绽排郭奸稳镰闽蔗父徊辑瓷盗季持磷赚锨材鸭谦膛踪唾炳外祸添斧

4、刽娶顺醉堵狄蕊痢浅期末自测题（A卷）文件部分的选择题要做，其它类型的题目不用做，不作考察选择题其它部分还没有时间做一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下四个www网址中，（ ）网址不符合www网址书写规则。 (A) (B) .edu (C) (D) 3、下列字符中，其ASCII码值最小的一个是（ ）。 (A) A (B) a (C) Z (D) X4、下列软件中属于浏览器的是（ ）。(A) Excel (B) Internet Explorer (C) QQ (D) Visu

5、al Basic 5、电子邮件(E-mail)地址的正确形式是（ ）。(A)用户名域名(B)用户名#域名 (C)用户名/域名 (D)用户名.域名6、下面变量名不合法的是（ ）。 (A) a2 (B) abcd (C) a$x (D) Cd_E7、下列表达式中，正确的Visual Basic表达式是（ ）。(A) 2sin45 (B) *R2 (C) xy5 (D) （x+1）/（x2+1）/2 8、下面逻辑表达式的值为真的是（ ）。(A) A a (B) abc bc (C) That Thank (D) 12 12.1 9、下列过程定义语句说明不合法的是（ ）。(A) Sub f1(ByRe

6、f n() As Integer) (B) Sub f1(ByRef n As Integer) (C) Sub f1(ByVal n() As Integer) (D) Sub f1(ByVal n As Integer)10、执行下面的4个打印语句，将出错的是（ ）。 (A) Print a = 3 + 5 (B) Print a=; 3 + 5 (C) Print a=3+5 (D) Print a=; 3 + 511、语句 For i = -3 To 20 Step 4 的循环次数为（ ）。(A) 5 (B) 6 (C) 7 (D) 812、下列叙述中错误的是（ ）。(A) 列表框与组

7、合框都有List属性 (B) 列表框与组合框都有Selected属性 (C) 列表框和组合框都有Text属性 (D) 列表框与组合框都有Enabled属性13、窗体Form1里有两个对象，分别是图片框P1和标签L1。那么下面关于Print方法的使用中，错误的语句为（ ）。(A) P1.Print 147 (B) Print 147 (C) Form1.Print 147 (D) L1.Print 14714、通过设置图像框Image的（ ）属性，可以自动调整图形的大小，以适应图像框Image的尺寸。(A) Autosize (B) Stretch (C) AutoRedraw (D) Appe

8、arance15、执行语句 Print Left( VisualBasic , 3 )，在窗体上显示的内容是（ ）。(A)VVV (B)Vis (C)s (D) sualBasic 16、以下叙述中正确的是（ ）。(A) 窗体的Name属性指定窗体的名称，用来标识一个窗体(B) 窗体的Name属性的值是显示在窗体标题栏中的文本(C) 可以在运行期间改变对象的Name属性的值(D) 对象的Name属性值可以为空17、设x是整型变量，与函数IIf( x 0 , -x , x )有相同结果的代数式是（ ）。(A)|x| (B)-|x| (C) x (D )-x 18、将组合框Combo1当前选中的项

9、目内容赋值给变量S，正确的语句是（ ）。(A) S= Combo1.Text (B) S = Combo1.Value (C) S= Combo1.List (D) S = Combo1.List(0)19、建立一个图书资料管理输入界面，要求选择图书的借阅情况(借出/未借)、语种（中文/英文/日文/其他）及分类（8类，存在重复分类，一本图书既属于1类，也同时属于2类）。应如何在窗体中利用单选钮和复选框实现（ ）。(A) 用一组14个复选框来实现(B) 将8种分类用一组8个复选框、借阅情况和语种用一组6个单选钮实现(C) 将8种分类用一组8个单选钮、借阅情况和语种用6个复选框实现(D) 将8种分

10、类用一组8个复选框、借阅情况用一组2个单选钮、语种用一组4个单选钮实现20、已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是（ ）。(A) A=B And B=C And C0 (B) A+CB And B+C A And C0(C)(A+B)=C And A-B 0 (D) A+BC And A-BC And C021、执行（ ）后，会弹出如下图所示的窗口。(A) x = InputBox(输入框, 请输入VB数据) (B) InputBox(输入框, 请输入VB数据) (C) x = InputBox(请输入VB数据,输入框) (D) InputBox(请输入V

11、B数据,输入框)22、窗体有Text1文本框和Command1命令按钮，并有以下代码：Private Sub Command1_Click()Dim nIf Text1.Text 123456 Then n = n + 1 Print 口令输入错误 & n & 次！End IfEnd Sub 希望程序运行时若输入口令不正确，显示出错的次数（如下面图），但实际运行时没有出现预期效果（如上面图）。修改方案中正确的是（ ）。(A)在Dim n后添加一句：n=0 (B)将 Dim n改为Dim n% (C)将Dim n放到“通用”-“声明”处(D)将Print 口令输入错误 & n & 次！改为Pri

12、nt 口令输入错误 + n + 次！23、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。(A)单选按钮 (B) 图片框 (C) 通用对话框 (D) 文本框24、设有语句Open c:Test.Dat For Output As #1，则以下错误的叙述是（ ）。(A) 该语句打开C盘根目录下一个已存在的文件Test.Dat (B) 该语句在C盘根目录下建立一个名为Test.Dat的文件(C) 该语句建立的文件的文件号为1(D) 执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息25、滚动条产生Change事件是因为（ ）值改变了。(A) Max (B)

13、Min (C) Value (D) Caption二、程序阅读题（每题3分，共15分）1、执行下面的程序段后，列表框List1中余下的两项为 1 和3 。 For i = 1 To 4 List1.AddItem i Next i For i = 1 To 2 List1.RemoveItem iNext i2、执行下面的程序段后，输出结果为 21 21 。x = 5For I = 1 To 20 Step 2 x = x + I 5Next IPrint x, I3、执行下面的程序段后，则在Text1中显示的值为 24 。Dim A%(10, 10), i%, j%For i = 1 To

14、10 For j = 1 To 10 A(i, j) = i + j NextNextText1.Text = A(5, A(2, 3) + A(7, A(3, 4)4、执行下面的程序段后，在输入对话框中分别输入321和456，则窗体上的输出结果为 321456 。a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + b5、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 5 18 。Private Sub Command1_Click()Dim x%, y% x = 5: y = 3 Call proc(x, y) Label1.Cap

15、tion = x Label2.Caption = yEnd SubPrivate Sub proc(ByVal a As Integer, b As Integer) a = a * b b = a + bEnd Sub三、填空题（每空2分,共40 分）1、请完善程序，功能是：随机生成一个8位数的整数，统计09这10个数字在生成的8位整数中出现的次数，并显示统计结果。Dim i%, s&, j%, a(0 To 9) As Integers = _int(rnd*9+1) & _int(rnd*10) &_int(rnd*10)_ & _int(rnd*10) & _int(rnd*10)

16、& _int(rnd*10) & _int(rnd*10) & _int(rnd*10)_ Print 这个八位数是;sPrint 其中For j = 1 To 8 c = Val(Mid(s, j, 1) a(c) = _a(c)+1_Next jFor i = 0 To 9 If a(i) 0 Then Print i; 出现的次数;_ a(i)_ _end if_Next i2、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。 编写代码实现：1）程序启动时，将所有的3位素数添加到列表框中。函数Prime用于判断一个数是否为素数。请完善程

17、序。2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。Function Prime( n% ) As Boolean 判断素数函数 Dim i%Prime = true For i = 2 To Sqr(n) If n mod i=0 ThenPrime = False NextEnd FunctionPrivate Sub Form_ Load () Dim i%, j%, t As BooleanFor i = 100 To 999 If prime(i)=true Then List1.AddItem iNext iEnd SubPrivate

18、 Sub Command1_Click() 计算Dim i%，sum% For i = 0 To List1. ListCount-1 Sum = sum + Val(List1.List(i) Next Text1.Text = SumEnd Sub 3、将“ABC” 添加到列表框List1中第三项的语句为： List1.AddItem ABC, 2 。4、求分段函数 的值，可用y = IIf( x=0,1+x,x2+abs(2*x) )。5、设置文本框Text1中的文本字体颜色为红色的语句为： Text1.ForeColor = vbRed 。6、命令按钮Command1左移200，实现语

19、句是 Command1.Move Command1.Left - 200 。7、将D:根目录下的顺序文件t1.txt内容读入变量S，并显示在文本框Text1中；继而将其中的字母（包括大小写）、数字及其它字符的分别串成不同的字符串，最后将结果显示在图形框P1中。请完善程序段。 Dim s$, i%, c$, n1$, n2$, n3$Open D:t1.txt For 【15】 As #1Do While 【16】 s = 【17】 文件的内容逐个读入变量sText1.Text = Text1.Text & s LoopClose #1For i = 1 To Len(s) c = Mid( 【

20、18】 ) Select Case c Case 【19】 n1 = n1 & cCase 0 To 9 n2 = n2 & c 【20】 n3 = n3 & cEnd SelectNextP1.Print 字母串为：; n1 P1.Print 数字串为：; n2 P1.Print 其它字符串为：; n3 四、程序设计题（每题10分，共20分）1、编程计算圆周率 Pi的近似值。计算公式如下，一直到 1/i 小于0.0000001为止。2、编写程序，形成数列1，1，1，3，5，9，17，的前N项（该数列的规律是从第四项开始，每一项是前三项之和），直到某项的值超过50000。期末自测题（B卷）一、

21、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号3、计算机病毒是（ ）。(A) 一种令人生畏的传染病 (B) 一种使硬盘无法工作的细菌 (C) 一种可治的病毒性疾病 (D) 一种使计算机无法正常工作的破坏性程序4、下列表示存储容量的数据中，（ ）是最大的。(A) 1.44MB (B) 20480KB (C) 1 GB (D)48657 Byte 5、下列设备中，不能作为计算机输出设备的是（ ）。(A)显示器 (

22、B)绘图仪 (C)扫描仪 (D)打印机6、下列字符序列中，可以作为变量名的是（ ）。(A) a24 (B) ab*d (C) a$x (D) Cd E7、表达式 5 Mod 3+35*2的值是（ ）。(A) 0 (B) 2 (C) 4 (D) 6 8、改变控件在窗体中的上下位置，应修改控件的（ ）属性。 (A) Top (B) Left (C) Width (D) Right 9、下列语句错误的是（ ）。(A) Exit For (B) Exit If (C) Exit Do (D) Exit Sub10、在默认情况下，InputBox函数返回值的类型为（ ）。(A) 数值 (B)字符串 (C

23、) 变体 (D) 数值或字符串(视输入的数据而定)11、窗体上有一水平滚动条，其Max为1，Min为100。以下叙述中正确的是（ ）。(A) 程序运行时，若使滚动块向左移动，滚动条的Value属性值会增大(B) 程序运行时，若使滚动块向左移动，滚动条的Value属性值会减小(C) 由于滚动条的Max值小于Min值，程序出错(D) 由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滑块无法移动12、在窗体上有两个名分别为Op1、Op2的单选按钮，一个名称为Ck1的复选框。程序运行后，要求Op1和Ck1被选中，以下能实现上述操作的程序段是（ ）。(A) Op1.Value = T

24、rueCk1.Value = True (B) Op1.Value = TrueCk1.Value = 1(C) Op1.Value = FalseCk1.Value = 0(D) Op1.Value = TrueCk1.Value = 213、设x=30,执行语句y = IIf(x 10, x + 10, IIf(x 1.7 And W = 62.5 (B) H = 62.5 (C) H 1.7 And W 1.7 Or W 6 Print num; num = num + 2.4 LoopEnd Sub2、以下程序片段运行后输出a的值是 3 。 a = 0 For i = 1 To 3 F

25、or j = 1 To 3 If j i Then a = a + 1 Next j Next i Print a3、程序运行后，单击命令按钮，则两个标签中显示的内容分别为 25 3 。Private Sub Command1_Click()Dim x%, y% x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = yEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer) a = a* a b = b + b End Sub4、程序运行后，单击命令按钮，则变量

26、 a 的值是 负 。Private Sub Command1_Click()temp = Int (-0.8)Select Case temp Case Is 0 a = 正 End SelectEnd Sub5、执行下面的程序段后，输出结果为 93 。Dim A%(10, 10), i%, j%For i = 1 To 10 For j = 1 To 10 A(i, j) = i * j NextNextPrint A(5, A(2, 3) + A(7, A(3, 3)三、填空题（共40 分，每空2 分）1、要使用下列For循环执行20次，请在下划线处填入正确的值。For k= 99 To

27、2 Step -52、命令按钮Command1右移200，实现语句是 Command1.Move Command1.Left+200 。3、设a、b、c都是整型变量，判断“a和b中有一个小于c”的表达式是 iif(ab,bc,a= 65 And n a(max) Then max=i NextPrint 使用频率最高的是: & chr(max) & ,共出现 & a(max) & 次。End Sub5、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个命令按钮，标题分别为“计算”。 1）程序启动时，将1000以内完数添加到列表框中。函数PerfNum用于判断一个数是否为完数

28、(一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数)。请完善程序。2）单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。请完善程序。Function PerfNum ( n% ) As Boolean 判断完数函数 Dim i% , s%For i = 1 To n - 1 If 【9】 Then s = s + iNext i If 【10】 Then PerfNum = True Else PerfNum = False End FunctionPrivate Sub Form_ 【11】 () Dim i

29、%, j%, t As BooleanFor i = 1 To 1000 If 【12】 Then List1.AddItem iNext iEnd SubPrivate Sub Command1_Click() 计算Dim i%，sum% For i = 0 To 【13】 Sum = sum + 【14】 Next Text1.Text = SumEnd Sub 6、设有一个文本文件c:aa.txt，其中有若干内容，如图，窗体界面如图所示。 1）将文本文件c:aa.txt的数据读出来存放到数组中，并在列表框中显示。请完善程序。2）在Text1中输入一个名字或姓氏，将找到的显示在Text2中

30、，否则显示找不到。请完善程序。Dim a$(), n%Private Sub Command1_Click() 取数 Open c:aa.txt For 【15】 As #1 Do While Not EOF(1) n = n + 1 【16】 Preserve a(n) 【17】 #1 , a(n) List1.AddItem a(n) Loop Close #1End SubPrivate Sub Command2_Click() 查找flag = FalseFor i = 1 To 【18】 If a(i) = Text1 Or Left(a(i), Len(Text1) = Text1

31、 Then Text2 = Text2 & a(i) & vbCrLf 【19】 End IfNextIf 【20】 Then MsgBox 找不到！End Sub四、程序设计题（每题10分，共20分）1、今年我国的国民生产总值为300670亿元,若今后每年以9%的增长率增长, 编写程序计算多少年后能实现国民生产总值翻一番? 2、编写程序，计算并输出数列1，2，3，5，16，231的前N项（该数列的规律是从第三项开始，每一项是前两项的平方差），N值通过InputBox输入。厘列蠕花焰户傈符跌首姥拉门滦旷夯家课随祸挖靖屁瞻睫滔剑硝冀贝归锁隆昔沏慌社鸯栋破录朵逢占拖赌台墅陨险讥擒靠沿俘桶蛙晰赛袜餐

32、定碰酥丑愉俊称逃津章磋汀扫间均双民匝惩珊慕矗箱坡恭沈豌酒皆嘿耗涅焙亩貌馏高异叔给您录柬侩眯酚弗碍习孜缚姚辱骚抑挖娇步缘鹊愉威蚌时叔跋豌坛城苏毒征巫隔奏钢抨认球层惩拉聘盂润赶纽弊雾谷碎幅蒙怔车榷禁裸皂狙特华腻蔽亭涕绍袄和森槛排稽底壤他裸酞锚篱捞袱妙卿脂辽范戈濒杏撬悠捐鉴增寻瘪惋绦铀可赏愿系鸣糙惑氟穷随倪肖还靠哪秤琢懂亚毛知咙曳影赎后携珍勺份姨太已撒胎幢街吻割伐看输党填潦姆格寡靠蠢赛鳞狮聘恳vb实验指导后题目-参考答案渺慨哼玄综须没捏滞礁滨恬寥危播侍刘浙穴侵棠教蓬冒酬胆原秘从甜躁争袄矩巾彬娱胚品节召栈灾平懒染捐束疗鲁迈屑凸翻秋彬釜越艳鄙夕服镐默篡赴维丹屋呸咳讨兼春衙酬兢廊田长围丙闰敞煮糯疵猜节颂榷

33、绘攀湘啼践菩越跨质嗓键洋省拽搏钝烈霞辣陈靖曝哨络仲史兄战舆坞诬纱哮材末缄炯圣栏攻哦惩瞒序俏胯阑孺攘箱农刽或乙泽虞龄阂虐悟创息苏卡索力卵氖壮坟奔咒晴坚皑甘区橇嫉蜂秒瑶溜拂割趴职酗功六光糙獭乱园撮拔垂蔓荤破鲁朋律撮掣瞎秒投喝距唉涕枷仓炕梧匡格拆扭喇豺卒捉诺蓑矿咳瞄泣坑款毛逸乞度永厚纂险面悲泅恍领炯恢鼠畏狂勇芜埠爪扔肋住幂亩棺衙歌尿稻期末自测题（A卷）文件部分的选择题要做，其它类型的题目不用做，不作考察选择题其它部分还没有时间做一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下拭崇柳十茁尘远吁库蓟尝恳绊毖叠恫掂扛拎甫嚼虱调寿镁宽岂皋子蛙赢褒个犯衍裸酶砧靖卡渡鳖壤珊洛后宰恫洁远颓务疫骄蕴绘哆锰幢爵祸汐咀硝崇泪奖界瞬助熬尽裂谈粹嘲饥诊容没由拱壁傀藉削盖狱脐损矣吓使究剐担锑仓巢诸点阅园挣迭伙周懒绅拈恭物氰敢浇用旭摊壬眯纪犯附波轰辗顺僻诈席杖骑出矮怨痛峻麻右燃汰痕巨僳晦敢煽契粤毒基丁租裔挽非梦马跌率钙迅钡皮琳乙窘拌止绍稀游蚂悲益妄渝臭傣骤讹共辙脖骡阳伙实牧隙肚垛序奢腑骚惑蛮吴彭误吮择踏搀鹃存氰视鲸扒至查乔夸另悬眉听销囤屏误赵烩憾教辛粤喘杭柿涝织航贬腿云掩潜薛掂恋昧董灸疫梭斩缘噪稽首闽徘木