【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB程序设计习题集 - 职业资格”一文，供大家参考学习!

1 VB程序设计 习题集 电信学院计算机工程系 吴年志 2010-3-1 2 目 录 第一章 练习题 ................................................................... 1 第二章 练习题 ................................................................... 3 第三章 练习题 ................................................................... 5 第四章 练习题 ................................................................. 7 第五章 练习题 ............................................................... 12 第六章 练习题 ................................................................. 17 第七章 练习题 ................................................................ 22 第八章 练习题 ................................................................ 27 第九章 练习题 ................................................................ 28 参考答案 ........................................ 错误未定义书签。

    30 VB程序设计习题集 1 第一章 练习题 1. 对于窗体下面 属性在程序运行时其属性设置起作用。

     AMaxButton B BorderStyle C Name D Left 2. 要使Print 方法在Form_Load事件中起作用要对窗体的 属性进行设置。

     ABackColor BForeColor C AutoRedraw D Caption 3. 要使标签控件显示时不覆盖其背景内容要对 属性进行设置 ABackColor BForeColor C BorderStyle D BackStyle 4. 要使命令按钮不可操作要对 设置 A Enabled BVisible C BackColor DCaption 5. 文本框没有 属性 AEnabled BVisible C BackColor DCaption 6. 不论何控件共同具有的是 属性 AText BName C ForeColor DCaption 7. 要使Form1窗体的标题栏显示”欢迎使用VB”以下 语句正确。

     A Form1.Caption”欢迎使用VB” BForm1.Caption??欢迎使用VB?? C Form1.Caption欢迎使用VB D Form1.Caption”欢迎使用VB” 8. 要使某控件在运行时不可显示应对 进行设置 A Enabled B Visible C BackColor D Caption 9 . 要使窗体在运行时不可以改变窗体的大小和没有最大最小化按钮只要对下面 进行设置。

     AMaxButton B BorderStyle C Width D MinButton 10. 当运行程序时候系统自动执行启动窗体的 事件过程 ALoad BClick C Unload D GotFocus 11. 当文本框的ScrollBars 属性设置了非零值却没有效果原因为 A 文本框中没有内容 B 文本框的MultiLine属性为False C 文本框的MultiLine属性为True D 文本框的Locked属性为True 12. .要判断在文本框时否按了Enter键应在文本框的 事件中判断 AChange BKeyDown CClick DKeyPress VB程序设计习题集 2 13. 在VB集成环境创建VB应用程序时除了工具箱窗口窗体中的窗口属性窗口外必不可少的窗口是 A窗体布局窗口 B立即窗口 C代码窗口 D监视窗口 14. 保存新建的工程时默认的路径是 A My Documents B VB98 C DWindows 15. 当需要上下文帮助时选择要帮助的“难题”然后按 键就可以出现MSDN窗口及所需帮助信息。

     AHelp B F10 C Esc D F1 16. 进入VB集成环境发现美有显示“工具箱”应选择 菜单的 选项使“工具箱”窗口显示。

     17.要使新建工程时在模块的“通用声明”段自动加入Option Explicit语句应对 菜单的 的 选项卡进行相应的选择。

     18. 刚建立工程时使窗体上的所有控件具有相同的字体格式应对 的 属性设置。

     19. 当对文本框的ScrollBar的属性设置为2但美有滚动条显示是因为没有对multiline 属性设置为True 的原因 20. 当对命令按钮的Picture属性装入.bmp图形文件后选项按钮上并美有显示所需的图形原因是没有对style 属性设置为1 21. 若已建立了Form1Form2两个窗体默认启动窗体为Form1.通过 菜单的 的 选项卡可将启动窗体设置为Form2在程序中若要显示Form1窗体则要执行 form1.show语句。

     22. 在文本框中通过selstart 属性能获得当前插入点所在的位置。

     23. 要对文本框中已有的内容进行编辑按下键盘上的按键就是不起作用原因是设置了 locked 的属性为True 24. 在窗体上已建立了多个控件如Text1 Label1 Command1 若要使程序已运行焦点就定位在Command1控件上应对Command1控件设置 TabIndex 属性的值为0 VB程序设计习题集 3 第二章 练习题 1. 在一个语句内写多条语句时每个语句之间用 符号分隔。

     A B C 、 D 2. 一句语句要在下一行继续写用 符号作为续行符。

     A B - C _ D… 3. 下面 是合法的变量名。

     AX_YZ B123ABC Cinteger DX-Y 4.下面 是不合法的整常数。

     A100 BampO100 CampH100 D100 5.下面 是合法的字符常数。

     AABC B”ABC” C??ABC?? DABC 6. 下面 是不合法的单精度型常数 A100 B100.0 C1E2 D100.0D2 7. 下面 是合法的单精度型变量 Anum Bsum Cxinte Dmm 8. 表达式16/4-258/4 MOD 52的值为 A14 B4 C20 D2 9. 数学关系3ltxlt10表示成正确的VB表达式为 A3ltXlt10 B 3ltX AND Xlt10 C Xgt3 OR Xlt10 D 3ltX AND lt10 10. 、/、MOD、四个算术运算符中优先级别最低的是 A B / C MOD D 、 11. 与数学表达式cdab3对应VB的不正确表达式是 Aab/3cd Ba/3b/c/d C ab/3/c/d Dab/3cd 12. Rnd函数不可能为下列 值 A 0 B 1 C 0.1234 D0.0005 13. Int198.5551000.5/100的值为 A 198 B 199.6 C198.56 D200 14. 已知A”12345678” 则表达式ValLeftA4MidA42的值为 A 123456 B123445 C 8 D 6 VB程序设计习题集 4 15. Print DateAdd“m”11/30/2000语句显示的结果是 A00-2-29 B00-2-28 C00-2-30 D00-1-31 16. 表达式DateDiff“y”12/30/19991/13/2000的结果是 A1 B 11 C14 D 99 17. 表达式Len“123程序设计ABC”的值为 A10 B14 C20 D17 18. 表达式LenB“123程序设计ABC”的值为 A10 B14 C20 D17 19. 下面正确的赋值语句是 AXY30 BYπRR C YX30 D3YX 20.为了给XYZ三个变量赋值为1下面正确的赋值语句是 AX1:Y1:Z1 B X1Y1Z1 C XYZ1 DXYZ1 21.赋值语句A123MID“1234356”32 执行后A变量的值为 A”12334” B123 C 12334 D157 22.赋值语句A123 amp MID“1234356”32 执行后A变量的值为 A”12334” B123 C 12334 D157 21. 在VB中12341234amp 1.2346E51.2346D5四个常数分别表示 类型。

     22. 表示X是5的倍数或是9的倍数的表达式为 23. 已知A3.5B5.0C2.5DTrue 则表达式Agt0 AND ACgtB3 OR NOT D的值为 24. int-3.5int3.5fix-3.5fix3.5round-3.5round3.5的值分别为多少 25. 表达式UcaseMid“abcdefgh”34的值为 26. 计算离你毕业还有多少个星期的函数表达式为假定毕业日期为7/1/2007 VB程序设计习题集 5 第三章 练习题 1. 下面程序运行后的结果为 xintrnd3 if x2 gt8 then yx21 if x29 then yx2-2 if x2lt8 then yx3 print y 2. 下面程序的功能为 Dim nm Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii13 then If IsNumericText1 then Select Case Text1 Mod 2 Case 0 Nntext1 Case 1 Mmtext1 End Select End if Text1”” Text1.SelFocus End if End Sub 3. 程序添空 Dim count1 Private Sub Text1_KeyPressKeyAscii As Integer If ”“ then Count1count11 Elseif ”” then end if if keyascii13 then if then Print “左右括号配对“ Elseif then VB程序设计习题集 6 Print “左括号多于右括号” count1 “个” Else Print “右括号多于左括号” count1 “个” End if End if End sub 4. 输入字符统计有多少个元音字母有多少其他字母直到按了回车键结束并显示结果。

    大小写不区分。

     Dim County countc Private Sub Text1_KeyPressKeyAscii As Integer Dim c C If “A”ltC AND Clt”Z” then Select Case Case Countycounty1 Case Countccountc1 End select End if If then Print “元音字母有”county: “个” Print “其他字母有”countc “个” End if End sub VB程序设计习题集 7 第四章 练习题 1. 以下 式正确的FOR….NEXT 的结构 A for x1 to step 10 Bfor x3 to –3 step -3 ….. …… next x next x C for x1 to 10 D for x3 to 10 step 3 re: ……. ……. Next x next y If I10 then goto re 2. 以下循环能正常结束的是 A I5 B I1 Do Do II1 II2 Loop until Ilt0 loop until I10 C I10 D I6 do do II1 II-2 Loop until Igt0 loop until I1 3. 下面程序运行的结果为 for I3 to 1 step –1 print spc5-I for j1 to 2I-1 print “” next j print next I A B C D 4. 当在文本框输入“ABCD”四个字符时候窗体上显示的是 private sub text1_change print text1 end sub A ABCD B A C AABABCABCD DA B AB VB程序设计习题集 8 C ABC D ABCD 5. 那个程序不能正确表示1234的值 A For I1 to 4 B For I1 to 4 N1 for j1 to i For j1 to I n1 Nnj nnj Next j next j Print n print n Next i next I C n1 D n1 for j1 to 4 j1 nnj do while jlt4 print n nnj next j print n jj1 loop 6. 要使下列FOR语句循环执行20次循环变量的初值应当为 For k to -5 step -2 7. 下面程序段显示 个“” For I1 to 5 For j2 to I Print “” Next j Next i 8. 以下程序运行后。

     Si sj sk I j k的结果分别为 Private sub command1_click Si0: sj0 For I1 to 3 For j1 to I Sk0 For kj to 3 Sksk1 Next k Sjsj1 Next j VB程序设计习题集 9 Sisi1 Next I Print sisjskIjk End sub 9.下面程序运行后的结果为 Private sub command1_click For I0 to 3 Print tab4I1”2”I”2” amp I Next I End sub 10.程序运行结果 Private sub command1_click A””: b”” For I1 to 4 If I mod 20 then XstringlenaIb Else XstringlenaIa Endif Print x Next I End sub 11.输入字符要求将字符顺序倒置。

     Private sub command1_click Dim aIcd Ainputbox“input char” N For I1 to CmidaI1 midaI1 c next I print a end sub 12.找出被357除余数为1的最小的5个正整数。

     Private sub command1_click Dim countn n Countn0 VB程序设计习题集 10 N1 Do Nn1 If then Print n Countncountn1 End if Loop End sub 13.猴子每天吃掉的桃子是所有桃子的一半多一个到第七天发现只剩下一个了问最开始有几个桃子 Private sub command1_click Dim nI X1 For I6 to 1 step –1 next I print “原来共有”x”个桃子” end sub 14.键盘输入一个正整数找除大于或等于该数的第一个素数。

     Private sub command1_click Dim m x tag as Boolean Tagfalse Xinputbox“input num” Do while not tag M2: tag Do while tag and mltx2 If x mod m0 then else Loop If not tag then xx1 Loop Print x End sub 15.将一个正整数分解为质因数乘积。

    如23423313 Private sub command1_click Dim n factor first as Boolean Ninputbox“input num” VB程序设计习题集 11 Factor2 Firsttrue Do Do while If first then Print n “” factor Else Print “” factor End if firstfalse loop factorfactor1 loop until factorgtn end sub VB程序设计习题集 12 第五章 练习题 1. 运行结果为 dim a aarray1234567 for ILbounda to ubounda AIAIAI Next I Print ai 2.运行结果为 option base 1 private sub command1_click dim a33 for I1 to 3 for j1 to 3 if jgt1 and Igt1 then aIjaaI-1j-1aIj-11 else aIjIj end if print aIj” “ next j print next I end sub 3.运行结果为 option base 1 private sub command1_click dim ab33 aarray123456789 for I1 to 3 for j1 to 3 bIjaIj if jgtI then print tabj3 bIj next j print next I VB程序设计习题集 13 end sub 4. 随机产生6位学生的分数范围1100存放在数组a中以每2分一个“”显示。

    如图 Private sub command1_click Dim a 1 to 6 For I1 to 6 A I Print Next I End sub 5. 输出大小可变的正方形图案最外圈是第一层要求每层上用的数字与层数相同。

     Option Base 1 Private sub form_click Dim a Ninputbox“input N” ??本例N为9 for I ‘每一层图案上要显示的数字 for j I to n-I1 ‘数组中元素存放对应的数字 for kI to n-I1 next k VB程序设计习题集 14 next j next I for I1 to n for j1 to n print tabj3aIj next j next I end sub 6. 在一维数组中利用移位的方法显示如图结果 Private sub form_click Dim a 1 to 7 For I1 to 7 AiI: print ai Next I Print For I1 to 7 T For j6 to 1 next j a1t for j1 to 7 print aj next j print next i end sub 7. 矩阵转置就是行列互换矩阵的值为3080之间。

     Option base 1 VB程序设计习题集 15 Private sub command1_click Dim a23b32Ijn N5 For I1 to 2 For j1 to 3 ??赋初值 print Ij next j print next I for I1 to 3 for j1 to 2 ‘转置 print bIj next j print next I end sub 8. 下面程序将输入的一个数插入到按递减的有序数列中。

    插入后该序列仍有序。

     Private sub form_click Dim aInm Aarray75321 Nubounda Redim Mvalinputbox“输入想插入的数“ For Iubounda-1 to 0 step-1 If mgtai then if I0 then aim else exit for endif next I for I0 to ubounda print ai next I end sub VB程序设计习题集 16 9. 冒泡法排序 Private sub form_click Dim anjIt Aarray31 Nubounda For I0 to n-1 For j0 to n-I1 If ajgtaj1 then aj1t endif next j next I for I0 to ubounda print aI next I end sub VB程序设计习题集 17 第六章 练习题 1. 设有下面的说明 Public sub F1n …. N3n4 …. End sub Private sub comm.

上一篇：用加密狗实现VB程序保护
下一篇：关于大学英语教学