【VB开源代码栏目提醒】：网学会员VB开源代码为您提供[工学]VB程序设计试题库 - 讲义教程参考，解决您在[工学]VB程序设计试题库 - 讲义教程学习中工作中的难题，参考学习。

    

lt 1 / 49gt VB程序设计试题库 《VB程序设计》试卷二 ____________________________________ 2 参考答案2 _____________________________________________ 6 《VB程序设计》试卷三 ____________________________________ 9 参考答案3 ____________________________________________ 13 《VB程序设计》试卷四 ___________________________________ 16 参考答案4 ____________________________________________ 21 《VB程序设计》试卷五 ___________________________________ 23 参考答案5 ____________________________________________ 28 《VB程序设计》试卷六 ___________________________________ 30 参考答案6 ____________________________________________ 34 《VB程序设计》试卷七 ___________________________________ 36 参考答案7 ____________________________________________ 40 《VB程序设计》试卷八 ___________________________________ 42 参考答案8 ____________________________________________ 47 lt 2 / 49gt 《VB程序设计》试卷二 学号 姓名 得分 题号 一 二 三 四 五 六 总分 分值 10 10 20 18 18 24 100 得分 一、 选择题每小题1分共10分 1、 改变控件在窗体中的上下位置应修改控件的__1_____属性 A .Top B. Left C.Width D. Right 2、 将通用对话框类型设置为字体对话框可修改该控件的____2_____属性 A. font B. filename C. filter D. action 3、 标签控件最重要的属性是__3______ A. caption B. text C. name D. width 4、 文本框中选定的内容由下列____4_____属性反映。

     A. Text B.Caption C. Seltext D. sellenght 5、 选中复选框控件时value属性的值可以是_ 5______ A.true B. false C. 0 D.1 6、 设置列表框选中的文本用____6____属性 A. selected B. caption C. text D. list 7、 简单组合框的style值为____7_____ A .0 B. 1 C. 2 D. 3 8、 在文件列表框的实现文件的多重选择应修改该控件的___8______属性 A. filename B. pattem C. path D. multiselect 9、 语句listl.removeitem 1 将删除list.listindext等于___9______的项目。

     A. 0 B. 2 C. 3 D. 1 10、计时器的interval属性伪时表示____10_____。

     A. 计时器失效 C. 相隔0 毫秒 B. 相隔0秒 D. 计时器的enable属性为false 二、 判断题每小题1 分共10 分 1、 全局变量用global或public关键字声明且仅在通用声明处可以定义。

    11 2、 如果某子程序add用public static sub add定义则该子程序的变量都是局部变量。

     12 3、 .bmp格式的图片如果在autosize设为False的图片框它会以图片框大小完整显示出来。

     13 4、 已知窗体的fillcolorrgb25500红forecolorrgb02550绿fillstyle 0solid语句circle2001005002的输出结果是红边绿心的长椭圆。

    14 5、 move方法的一般形式是对象名.move ABCD其中A指LeftC 指width。

    15 6、 清除list1列表框对象的内容的语句是list1.cls。

     16 7、 清除combo1对象的内容是combo1.clear。

     17 8、 对象的可见性用enabled属性设置可用性用visible属性设置。

     18 9、 若要新建一个磁盘上的顺序文件可用outputappend方式打开文件。

     19 lt 3 / 49gt 10、滚动条控件不可作为用户输入数据的一种方法。

     20 1F 2. F 3. F 4. F 5. F 6. F 7. T 8. F 9. T 10. F 三、 填空题 1. 如果要指明mystring为固定15个字长的全局变量应该在标准模块中用以下说明语句定义___21________ 2.大于X 的最小整数的VB 表示形式为____22____。

     3.设X “abc123456”则“a”strvalrightX4的值是____ 23____________ 4.数学表达式 对应的VB表达式为_______24____________ 5.拖动滚动条中的滚动框将会产生_______25____________、___26______________ 6.请写出清除以下对象内容的语句 文本框____27_______窗体___28_________列表框__29_______组合框___30_______ 四、 程序阅读假如所有的变量类型都已定义每小题6分共18分 1、 程序1 FOR J10 TO 5 step –2 KJ1 If Klt6 then exit for NEXT J PRINT KJ 输出的结果______31____________ 2、 程序2 A1I0 SELECT CASE A2 CASE 1 AA1 CASE 2 AA2 CASE ELSE AA3 END SELECT A的值为______32__________ 3、 程序3注a为整型变量 open “abc.bat” for output as 1 n8 for I1 to n print 1I1 next I close 1 open “abc.bat” for input as 1 for I1 to n input 1a lt 4 / 49gt if I mod 50 then print a1 next I close 1 输出结果____33________________ 五、 程序填空每题2分共18分 1、 统计一顺序文件test.txt中的空格、字母、数字和其它字符个数。

     Private Sub Command5_Click Dim s As String C As String Dim I As Integer L As Integer spac As Integer character As Integer digit As Integer Other As integer Open “c:text.txt” For___34__________As 1 Do Unit_____35________ Line Input 1s L_______36__________ For Il To L C_____37___________ If________38______________Then Charactercharacter1 Elself_________39___________Then Spacspac1 Elself________30____________Then digitdigit1 Else otherother1 End If Next I Loop Close 1 Print “字符个数为”character“数字个数为”digit Print “空格个数为”spac“其它个数为”other End Sub 2、 以下程序是单击命令按钮将用户在组合框中输入的某一值与组合框其他项进行比较如有相同则将相同表项删除其他项则不动。

     Private Sub command1_click Dim a As String I As Integer ATrimCombo1.Text If altgt””Then _____41__________ If Combo1.Listia Then ____42__________ Next I End If Combo1.SetFocus End Sub lt 5 / 49gt 六、 综合编程每题10分共20分 1、 用自定义函数的方法求sumx求当-1≤x≤1时sumxx/2x2/3x3/4????xn/n1当x〉1或x〈-1时函数值为0。

    当n〈0时输入数据错误。

    X、N都是由用户输入。

     2、 已知有100个正数自小到大存于数组A中A1——A100编制程序输入正数X检查它是否存在于A中若存在显示对应下标若不存在则请将X插入到A中且不影响A中数组序列。

    提示程序开头可以是 Private Sub Command1_Click Dim x As Ingeger I As Integernn As Integera101 As Integer j As Integer Nn100 I1 While Iltnn AiValInputBox“input number”amp”必须大于”amp StraI-1 If aigtaI-1 Then II1 Else MsgBox“请重新输入” amp Strai amp Chr13 amp “必须大于” amp StraI-1 End If Wend For I1 To nn Print a I If I Mod 4 0 Then Print Next I Print ???? End sub 正确程序是 lt 6 / 49gt 参考答案2 一、判断题 1F 2. F 3. F 4. F 5. F 6. F 7. T 8. F 9. T 10. F 二、选择题 11. A 12. D 13. A 14. C 15. D 16. D 17. B 18. D 19. D 20. A 三填空题 21Public mystring as string15 22Intx1 23a3456 242sin3.14159/22aexpb/sqrac 25Scroll 26Change 27Text1.text”” 28. Form1.Cls 29. List1.Clear 30. combol1.Clear 四、程序阅读题 31 7 4 32 3 33 7 五、程序填空题 34Input 35EOF1 36Lens 37Mids I 1 38cgt”a” and clt”z” Or cgt”A” and clt”Z” 39c” “ 40cgt”0” and clt”9” 41for I0 to Combo1.ListCount-1 42Combo1.RemoveItem i 六综合编程题 1程序1 Private Sub Command1_Click Dim s As Single Dim n As Integer x As Single k As Integer n ValInputBoxquotPlease input a integer value:quot x ValInputBoxquotPlease input a single value:quot If n lt 0 Then lt 7 / 49gt k MsgBoxquot数据输入错误quot vbRetryCancel vbExclamation quot数据输入quot Exit Sub End If s sumx n Print s End Sub Function sumx As Single n As Integer Dim i As Integer ss As Long ss 1 sum 0 If x gt 1 Or x lt -1 Then sum 0 Else For i 2 To n 1 ss ss i sum sum x i - 1 / ss Next i End If End Function 程序2 Private Sub Command1_Click Dim x As Integer I As Integer nn As Integer a101 As Integer j As Integer nn 100 I 1 While I lt nn aI ValInputBoxquotinput numberquot amp quot必须大于quot amp StraI - 1 If aI gt aI - 1 Then I I 1 Else MsgBox quot请重新输入quot amp StraI amp Chr13 amp quot必须大于quot amp StraI - 1 End If Wend For I 1 To nn Print aI If I Mod 4 0 Then Print Next I Print x ValInputBoxquotInput a Data to Check :quot If x lt a1 Then For I nn 1 To 2 Step -1 aI aI - 1 Next I a1 x For I 1 To nn 1 lt 8 / 49gt Print aI If I Mod 4 0 Then Print Next I Print ElseIf x gt ann Then ann 1 x For I 1 To nn 1 Print aI If I Mod 4 0 Then Print Next I Print Else For I 1 To nn If x aI Then Print quot已经存在序号是quot I Exit Sub Else If x gt aI And x lt aI 1 Then j I 1 Exit For End If End If Next I For I nn 1 To j 1 Step -1 aI aI - 1 Next I aj x For I 1 To nn 1 Print aI If I Mod 4 0 Then Print Next I Print End If End Sub lt 9 / 49gt 《VB程序设计》试卷三 学号 姓名 得分 题号 一 二 三 四 五 六 总分 分值 10 10 20 18 18 24 100 得分 一、 选择题每小题1分共10分 1 以下的vb 常量中非法的是 1 a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 2. 骰子是一个正六面体分别用16 代表这六个面掷一次骰子出现的数可表示为 2 a. intrnd61 b. intrnd6 c. intrnd7 d. intrnd61 3. 要想返回文本框中输入的内容则可利用其 3 属性进行编程 a. caption b. text c. name d. righttoleft 4. 下列不能用commondialog 控件调用的对话框是 4 a. open/save b. help c. font d. search 5. 要使得窗体一开始运行就充满整个屏幕则须设置 5 属性 a. borderstyle b. appearance c. windowstate d. drawmode 6. vb 应用程序是分层管理的其最高的层次为 6 a. 工程 b. 模块 c. 窗体 d. 过程 7. vb 中的坐标圆点位于 7 a. 容器右上角 b. 容器左上角 c. 容器正中央 d. 容器右下角 8. 如果从数据文件 INPUT.DAT 中读取数据时 以下打开文件方式中正确的是 8 a. OPEN INPUT.DAT FOR INPUT AS 1 b. OPEN INPUT.DAT FOR OUTPUT AS 1 c. OPEN “INPUT.DAT” FOR INPUT AS 1 d. OPEN “I” 1 INPUT.DAT 9. vb 程序设计中的窗体在oop 中称为 9 a. 屏幕 b. 事件 c. 对象 d. 控件 10. 以下各表达式中 计算结果为0的是 10 a. INT12.4INT-12.6 b. CINT12.4CINT-12.6 c. FIX13.6FIX-12.6 d. FIX12.4FIX-12.6 二、判断题每小题1分共10分 1 只要用拖拽的方法将工具箱中所需的控件拖到窗体上即可完成。

     11 2 控件是对象而窗体不是对象它只是控件对象的窗口。

     12 3 TextBox与Label有许多共同特点它们都能显示和输入文本。

     13 4 有的对象属性既可在属性窗口中设定又可在程序代码中设定。

     14 5 在框架控件内的几个单选按钮中只能有一个单选按钮的Value属性为True.15 6 标签没有Change事件和SetFocus方法。

     16 7 事件过程与Sub过程它们相同点都是事件驱动而不同的只是事件过程由控件属性lt 10 / 49gt 决定而Sub过程是由户自定义。

     17 8 Function函数有参数传递并且一定有返回值。

     18 9 滚动条控件不可作为用户输入数据的方法。

     19 10Msgbox函数建立的信息框能显示信息又能输入用户的信息。

     20 11F 12. F 13. F 14. T 15. T 16. T 17. F 18. F 19. T 20. F 三、填空题每空2分共20分 1 变量min表示___21_____类型的变量。

     2 如果I11J3Iint-8.6IJ13/3 MOD 5则I值是______22_____________ 3 请写出满足以下条件的 VB表达式0X10______23____。

    X为0-100之间的数能被2整除但不能被3整除___24_____。

     4 下列循环语句控制的循环次数为 25 FOR K1 TO 10 STEP –1 5 表达式 1 and 0的值 26 。

     6 随机产生100至200不包括100和200之间的整数的表达式为 27 如果包括100而不包括200则表达式为 28 。

     7 写出清除图片框的文字或图形信息的语句 29 写出清除标签显示信息的语句为 30 。

     四、程序阅读每小题6分共18分 1CInputBox“请输入字符串” p” ” For LLenc To 2 Step –2 PMidC L – 1 2 P Next L Print P End Sub 如果输入ABCDEFG 则结果 31 2Dim Y As Integer Private Sub Command_Click Dim X As Integer X1 Y1 Call AAY1 ZBBX Print X Y Z End Sub Private Sub AAByVal Z As Integer Y Z X Z X Y End Sub Private Function BB ByRef Y As Integer Y Y 1 lt 11 / 49gt BBX Y End Function 结果 32 3 Private Sub Command1_Click Dim S As Integer I As Integer S 0 For I 1 To 10 If ZSI Then If I 2 lt 10 Then Print StrI 2 S S 1 Else Exit For End If End If Next 1 Prirt “S” StrS End Sub Public Function ZS ByVal X As Integer AS Boolean Dim J As Integer J 2 Do While J lt X If Int X / J X / J Then Exit Do J J 1 Loop If J X Then ZS True Else ZS False End If End Function 结果 33 五、程序填空题 1、 本题序随机产生的n个两位正整数。

    并进行排序的程序输出结果 Private sub CreateRNDbyval n as integer Dim temp as integer Dim I as integer For I0 to n XI 34 LblcreatI.captionxI Next I For I0 to 35 For j 36 to n lt 12 / 49gt If xIltxj then 37 XIxj 38 End if Next j 39 Next I ______40________ End Sub 2、 下列程序用于对输入的x和n的值进行计算 SX/2-X2/3x3/4-x4/5….-1n-1xn/n1 Private function Fsbyval x as single.byval n as integer as single Dim sum as single Dim remultiply as long Dim I as integer Sum0 Remultiply____41_______ I1 Do until ____42_______ Remultiply____43_______ Sumsumremultiply ______44________ _ __45________ ___ 46_______ End function 五、综合编程每小题12分共24分 1 猜数游戏已知程序用户界面如下程序启动后Lable1和Lable2滚动显示属于1100的随机整数当用户单击“左大”或“右大”按钮时滚动停止如果用户猜对了在Lable3中显示“猜对了”否则显示“猜错了”。

    试编写有关事件的程序代码。

     2、挑选单数并排序程序程序的用户界面如图示程序启动后由计算机自动产生20个属于100300之间的随机整数单击“显示全体”按钮时在Form1上显示这20个 随机数单击“显示单数”按钮时在Form1上显示其中的单数单击“排序”按钮时在Form1上将这些单数从小到大显示。

    要求显示格式为每行显示5个数据。

     lt 13 / 49gt 参考答案3 一、 选择题 1. b 2. a 3. b 4. d 5. c 6. a 7. b 8. c 9. c 10. d 二、判断题 11F 12. F 13. F 14. T 15. T 16. T 17. F 18. F 19. T 20. F 三、填空题 21货币数据变量 22 2 23 Xgt0 and xlt10 24 xgt0 and xlt100 and x mod 20 and x mod 3ltgt0 25 0 26 False 27 Int101rnd99 28 Int100rnd100 29 Picture1.cls 30 Label1.caption”” 四、阅读程序 31BCDEFG 322 2 2 336 10 S3 五、程序填空 34 int10rnd90 35: n-1 36 I1 37: tempxj 38: xItemp 39: lblcreatI.captionxI 40: lblcreatI captionxI 41 I 42: Igtn 43: remultiplyI 44: II1 45: loop 46: Fssum 六、综合编程 1猜数游戏 Private Sub Command1_Click Timer1.EnableFlash If ValLabel1.CaptiongtValLable2.Caption Then Label3.Caption”猜对了” lt 14 / 49gt Else Lable3.Caption”猜错了” End If End Sub Private Sub command2_Click Timer1.EnableFalse if ValLabel1.CaptionltValLable2.Caption Then Label3.Caption”猜对了” Else Lable3.Caption”猜错了” End If End Sub Private Sub Timer1_Timer Randomize Label1.CaptionIntRnd1001 Label2.CaptionIntRnd1001 End Sub 2挑单数并排序 Option Explicit Dim a20 As Integer b20 As Integer Dim k As Integer Private Sub cmdodd_Click Dim I As integer K0 For I 1 To 20 If ai/2ltgtIntai/2 Then kk1bkai Next I For I1 To k Print bi If Inti/5i/5 Then Print Next I Print End Sub Private Sub cmda11_Click Randomize .