大学VB程序设计资料.doc

《大学VB程序设计资料.doc》由会员分享，可在线阅读，更多相关《大学VB程序设计资料.doc（67页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流大学VB程序设计资料.精品文档. TEXT 5一：判断题第1题：在“工程资源管理器”，可以实现多窗体的所有操作。 对第2题：由于Single型变量的取值范围比Long型变量大，所以Single型变量开销内存也比Long型多。 错第3题：语句Const A=100是将A声明为一个常量。 对第4题：块If结构中的End if可以缺省。 错第5题：定义一个过程时，有几个形参，则在调用该过程时就必须提供几个实参。 错第6题： 列表框控件List1的最后一个表项为List1.List (List1.ListCount)。 错第7题： 移动框架时框架内控

2、件也跟随移动，因此框架内控件的Left和Top属性值也随之改变 错第8题：通过设置影像框的Picture属性可改变影像框中显示的图片，若要清除图片也是通过设置Picture属性来实现。 对第9题：在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。 错第10题：在程序运行中，目录列表框将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否为打开的文件夹图标来表示选定的目录。 对二：选择题第1题：下列选项中，属于VB程序设计的特点是_。 A、面向过程、事件驱动 B、面向对象、顺序驱动 C、面向过程、顺序驱动 D、面向对象、事件驱动 第2题：在窗体Form1的L

3、OAD事件过程中有语句：Form1.Print Visual Basic，但运行时窗体并未显示打印文字，此时需要修改窗体的_属性,才能使窗体启动有输出结果 。A、Autosize B、Enabled C、Autoredraw D、Visible第3题：下面哪一项不可以赋值给数值型变量？ A、123.4 B、123.4 C、1.234F2 D、1.234E2第4题：下面合法的变量名是_。 A、End B、private C、ABC_1 D、4A第5题：由“For i=1 To 9 Step -3”决定的循环结构被执行_次。 A、4 B、5 C、6 D、0第6题： 文本框控件的Alignment属

4、性决定_。 A、是否显示多行文本 B、鼠标移至控件时，所显示的提示 C、显示文本的对齐方式 D、文本框的显示内容第7题： 将命令按钮Command1设置为窗体的取消按钮，可修改该控件的_属性。A、Enabled B、Value C、Default D、Cancel第8题：下列_是用来画圆、圆弧及椭圆的。A、Circle方法 B、Pset方法 C、Line方法 D、Point属性第9题：用户可以通过设置菜单项的 _属性值为False来使该菜单项不可见。A、Hide B、Visible C、Enabled D、Checked第10题：执行语句“Write #1, 123; -34.56, hey;

5、 Date”后，相应文件内被写入 _。 A、123,-34.56,hey,2001-08-03 B、123,-34.56,hey,2001-08-03 C、123,-34.56,hey,#2001-08-03# D、123 -34.56 hey 2001-08-03三：填空题第1题： 【程序说明】以下程序执行后将产生一个66的转置矩阵，将二维数组中所有行和对应列的元素进行交换。Private Sub Form_Click() Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print 原始数据 For

6、i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j Form1.Print Next i For i = 2 To 6 For j = 1 To - 1 - - 2 - Next j Next i Form1.Print 转置后数据 For i = 1 To 6 For j = 1 To 6 - 3 - Next j Form1.Print Next I End SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Intege

7、r temp = a a = b b = temp End Sub参考答案：I 参考答案：Call Swap(a(I, j), a(j, I)或.Swap a(I, j), a(j, I) 参考答案：Print a(i, j); 第2题： 【程序说明】本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。 Dim x as longPriv

8、ate Sub Form_Load() Timer1.Interval = 60000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x = 0 -1-End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = -2- m = x mod 60 Print 运行了 + Str(h) + 小时 + Str(m) + 分 End SubPrivate Sub Tim

9、er1_Timer() -3- Text1.text = xEnd Sub参考答案：Timer1.enabled=true 参考答案：x60 参考答案：x=x+1 第3题： 【程序说明】程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。 Private Sub Image1_Click(Index As Integer) -1- Picture1.FontSize = 20 -2- = vbBlue P

10、icture1.Cls -3- Case 0 Picture1.Print 红桃被选中 Case 1 Picture1.Print 草花被选中 Case 2 Picture1.Print 方片被选中 Case 3 Picture1.Print 黑桃被选中 End SelectEnd Sub参考答案：Image2.Picture =Image1(Index).Picture 参考答案：Picture1.ForeColor 参考答案：Select Case Index 第4题： 【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体、字号和字效等进行设置。Private Sub

11、Form_Click() -1-259 CommonDialog1.Action =-2- Text1.FontBold =-3- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSizeEnd Sub 参考答案：CommonDialog1.Flags 参考答案：4 参考答案：CommonDialog1.FontBold四：阅读题第2题：请写出鼠标点击弹出菜单第三项后窗体上的显示结果。Private Sub

12、 Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End SubmnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名Private Sub mnuChoice1_Click() Label1.caption=”折叠” print Label1.caption End SubPrivate Sub mnuChoice2_Click() Label1.caption=”展开” prin

13、t Label1.caption End SubPrivate Sub mnuChoice3_Click() Label1.caption=”退出” print Label1.captionEnd Sub A、折叠B、展开C、退出D、无显示 参考答案C第1题：请写出在文本框中输入“李小丽”并按下回车键后，窗体上显示的结果。Private Sub Text1_Change()Print Text1.Text;”welcome!” End Sub A、 李小丽B、李welcome!welcome! 李小welcome!李小丽welcome!C、丽welcome! D、李小丽welcome!参考答案

14、B、第3题：写出程序运行时单击窗体后，在图片框上出现的结果。Private Sub Form_Load() Picture1.Width = Picture1.HeightEnd SubPrivate Sub Form_Click()Dim i As Single, x As Single, y As SinglePicture1.Scale (-100, 100)-(100, -100)For i = 0 To 2 * 3.1415926 Step 0.0001 x = 100 * Cos(i) y = 100 * Sin(i) Picture1.Line (0, 0)-(x, y), RG

15、B(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Next iEnd Sub答案 第4题：写出程序运行时单击窗体后，a1.dat文件的结果。Private Sub Form_Click() Dim k as integer, I as integerOpen a1.dat For Output As #1For k=5 to 1 step -1 For i = 1 To k : Print #1,k; : Next i Print #1, Next kClose #1End Sub A、1 1 1 1 1 2 2 2 2 3 3 3 4 4 5B、

16、1 2 3 4 5 C、5 5 5 5 5 4 4 4 4 3 3 3 2 2 1D、5 4 3 2 1参考答案：C第5题：【程序说明】写出下列程序运行时，单击窗体，由键盘输入一个整数29后，窗体上的显示结果。Private Sub Form_click() Dim idec As Integer, i As Integer Dim iDecR(16) As Integer Dim strDecR As String idec = Val(InputBox(输入数据idec=?) i = 0 Do While idec 0 iDecR(i) = idec Mod 2 idec = idec 2

17、 i = i + 1 Loop strDecR = i = i - 1 Do While i = 0 strDecR = strDecR + Trim(Str(iDecR(i) i = i - 1 Loop Print strDecREnd Sub A、11011B、10111C、10101D、11101 参考答案 D、第6题：【程序说明】写出下列程序运行时，窗体上显示的内容。Private Sub Form_Click() Const n = 6 Dim xx(n) As Integer Form1.Cls For i = 1 To n xx(i) = i * i Next i Call f

18、change(xx(), n) For i = 1 To n Form1.Print xx(i); Next iEnd SubSub fchange(a() As Integer, m%) For i = 1 To m / 2 t = a(i) a(i) = a(m - i + 1) a(m - i + 1) = t Next iEnd Sub 参考答案： A、36 25 16 9 4 1B、1 4 9 16 25 36C、6 5 4 3 2 1D、1 2 3 4 5 6五：设计题第1题：编程，求方程x2+y2=1000的所有整数解。参考答案：Private Sub Command1_Clic

19、k()Dim x as integer, y as integerFor x = -34 To 34For y = -34 To 34If x 2 + y 2 = 1000 ThenPrint x, yEnd IfNext y, xEnd Sub第2题：编写程序设计一个字幕推出程序。程序界面如下图所示，标签的字号在定时器的控制下，每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件。字号放大的速度由水平滚动条控制。参考答案：Private Sub Form_Load()Label1.Left = Width / 2 - Label1.Width

20、 / 2Label1.AutoSize = TrueHScroll1.Min = 1: HScroll1.Max = 1000HScroll1.SmallChange = 10: HScroll1.LargeChange = 100HScroll1.Value = 500: Timer1.Interval = 500End SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Call HScroll1_ChangeEnd SubPrivate Su

21、b Timer1_Timer()Label1.FontSize = Label1.FontSize + 2Label1.Left = Width / 2 - Label1.Width / 2If Label1.FontSize = 72 Then Timer1.Enabled = FalseEnd Sub第3题：程序运行时在文本框中输入一段英文文字，单击命令按钮后将它们保存至文件E:yw.txt文件中，单击窗体后，显示输入对话框，在该对话框中输入任意一个字符，并在E:yw.txt中查找，如果找到a，则提示a是文件中第几个字符，否则提示a在文件中不存在。参考答案：Private Sub Form

22、_Click() Dim a As String, b As String, c As String Dim n As Integer a = InputBox(请输入一个字符) Open e: yw.txt For Input As #1 Do While Not EOF(1) Line Input #1, b c = c + b Loop n = InStr(c, a) If n 0 Then MsgBox a & 是文件中第 & n & 个字符 Else MsgBox a & 在文件中不存在 End If Close #1 End Sub Private Sub Command1_Cli

23、ck() Open e: yw.txt For Output As #1 Print #1, Text1.Text Close #1 End Sub TEXT 6一判断题第1题：在打开某窗体时，初始化窗体中的各控件，应选用Load事件。第2题：不能使用Visual Basic的关键字作为变量名。对第3题：表达式543的计算结果是True。第4题：若用数组作为过程的参数，则实参和形参结合是按地址传递的，定义过程时，参数前不能使用ByVal。第5题：If语句中的条件表达式只能使用关系表达式或逻辑表达式。对第6题：执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程停止时。第

24、7题：将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。第8题：将图片框的Align属性设置值为2，表示图片框在窗体中居中显示。第9题：用户要想在程序运行时改变目录列表框的显示内容，可以通过代码来设置List属性的值。第10题：如果创建的菜单的标题是一个减号“-”，则该菜单显示为一个分隔线，此菜单项也可以识别单击事件。二、选择题第1题：一个对象可以执行的动作和可被对象识别的动作分别称为_。、事件、方法B、方法、事件、属性、方法、过程、事件第2题：以下选项中不属于事件的是_。A、Enable、oad C、keypress D、

25、click第3题：把一个数字字符串转换成相应的数值的函数是_A_。A、Val B、single C、asc D、spc第4题：下列说法不正确的是_ B _。 A、变量名长度不能超过255个字符 B、变量名可以包含小数点C、变量名不能使用关键字 D、变量名的第一个字符必须是字母 5窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界_B_A下界必须为1 B缺省的下界为 C 下界必须为0 D缺省的下界为0第6题：下列_B_属性用来表示标签或窗体的标题。 A、Text B、Caption C、Left D、name第7题：将焦点主动设置到指定的控件或窗体上，应采用_B_方法。A

26、B、SetFocus C D 第8题：描述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，以下正确的是_C_。A.Circle(1000,1000),400,0,3.1415926/2B.Circle(1000,1000),400,0,3.1415926/2C.Circle(1000,1000),400,0,3.1415926/2D.Circle(1000,1000),400,0,90第9题：通用对话框可以通过对_D_属性的设定来过滤文件类型。A Action B Filterindex C Font D、Filter 第10题：执行语句Input #1,k,s,a,d1后，

27、再执行语句Print k;s;a;d1 (k、s、a、d1分别是整型、Single、字符串、Date类型，文件中相应字符为“234,-34.56,hello,#2001-08-03#”)，输出结果为_B_ A、234，-34.56，hello，2001-08-03B、234-34.56hello2001-08-03C、234，-34.56，”hello”，#2001-08-03#D、234 -34.56 hello#2001-08-03#三：填空题第1题： 【程序说明】以下程序执行后将输出100到200之间所有的素数，并统计素数的个数Private Sub Form_Click()Dim i%

28、, j%, k%, t% t为统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True k= - 1 - j = Int(Sqr(i) Do While k = j And b If i Mod k = 0 Then - 2 - End If - 3 - Loop if b=true then t = t + 1 Form1.Print i End If Next i Print t=; tEnd Sub参考答案：2 参考答案：b = False 参考答案：k = k + 1 第2题： 【程序说明】 下列程序运行时，单击Command1(0)后，

29、清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。单击Command1(1)后，将组合框中的各表项输出到外部文件；单击Command1(2)后，将组合框中文本框部分的文本添加作为组合框的表项；单击Command1(3)后，将组合框中选中的表项删除。Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 -1- Open d:aaa.txt For Input As #1 Do While Not EOF(1) Line Input #1, a$ Combo1.AddItem a$ Loop C

30、lose #1 Case 1 Open d:aaa.txt For Output As #1 For I% = 0 To -2- Print #1, Combo1.List(I%) Next I% Close #1 Case 2 添加 Combo1.AddItem Combo1.Text Case 3 删除 -3- End SelectEnd Sub参考答案：Combo1.Clear 参考答案：Combo1.ListCount - 1 参考答案：Combo1.RemoveItem Combo1.ListIndex 第3题： 【程序说明】程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩

31、形，填充样式在“实心”、“透明”间交替变换。-1-Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If -2-Then Picture1.FillStyle = 0 Else Picture1.FillStyle = 1 En

32、d If -3- End Sub参考答案：Dim x0 As Single, y0 As Single或Dim x0!, y0! 参考答案：Picture1.FillStyle 0或Picture1.FillStyle=1 参考答案：Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B 第4题： 【程序说明】设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对话框，选中一个图片文件后，将其显示在图片框中。要求“打开文件”对话框只能显示bmp文件或gif文件。Private Sub Form_Click() CommonDialog1.Dialo

33、gTitle =”打开图片文件” CommonDialog1.InitDir=”c:Picture” -1-=bmp文件|*.bmp|gif文件|*.gif-2-Picture1.Picture=LoadPicture(-3-)End Sub参考答案：CommonDialog1.Filter 参考答案：CommonDialog1.ShowOpen或CommonDialog1.Action=1 参考答案：CommonDialog1.FileName4.、阅读题第1题：请描述出点击check1 一次、check2两次、Option1（2）两次后，文本框text1中文字“杭州”的显示格式。复选框和单

34、选框初始状态都为未选中。Private Sub Check1_Click() If Check1.Value = 1 Then Text1.ForeColor = vbRed Else Text1.ForeColor = vbBlack End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Option1_Click(Index As Integer) Select Ca

35、se Index Case 0 Text1.Alignment = 0 Case 1 Text1.Alignment = 1 Case 2 Text1.Alignment = 2 End SelectEnd Sub 参考答案：DA、杭州 为红色加粗的字，位于文本框中间B、杭州 为黑色加粗的字，位于文本框左侧C、杭州 为黑色不加粗的字，位于文本框中间 D、杭州 为红色不加粗的字，位于文本框中间已知窗体某主菜单上有三个子菜单项，当鼠标点击菜单第二项后请写出程序运行后的结果。m1、2、3顺序为3个子菜单名Private sub form_load() M1.enabled=false M2.enab

36、led=true M3.enabled=falseEnd subPrivate Sub m1_Click()M1.enabled=true M2.enabled=false M3.enabled=falseEnd SubPrivate Sub m2_Click() M1.enabled=false M2.enabled=false M3.enabled=true End SubPrivate Sub m3_Click() M1.enabled=false M2.enabled=false M3.enabled=falseEnd Sub 参考答案：AA、程序运行后使得第1、2菜单项不可响应，第3

37、个菜单项可响应。B、程序运行后使得第1、3菜单项不可响应，第2个菜单项可响应。C、程序运行后使得第2、3菜单项不可响应，第1个菜单项可响应。D、程序运行后使得第1、2、3菜单项都不可响应。第3题：写出程序运行时单击窗体后，在窗体上出现的结果。Private Sub Form_Click() Dim i As Integer, x As Single, y As Single Form1.Scale (-300, -200)-(300, 200) For i = 1 To 100 x = 300 * Rnd If Rnd 0.5 Then x = -x y = 200 * Rnd If Rnd

38、0.5 Then y = -y Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) Next i End sub 参考答案：BA B、 C 第4题：写出点击2次窗体后，文件a1.txt中的内容。Dim k as integerPrivate sub form_load() K=5 End subPrivate Sub form_click() Dim j As Integer k = k + 1 Open a1.txt For Append As #1 For j = 1 To k: Print #1,

39、j; : Next j Print #1, Close #1End Sub A、1 2 3 4 5 6 B、6 7 1 2 3 4 5 6 7 C、7 6D、1 2 3 4 5 6 7 1 2 3 4 5 6 参考答案：A第5题：【程序说明】写出下列程序运行时，单击窗体一次输入10、37、50、55、64、20、28、19、-19、0后，窗体上显示的内容。Private Sub Form_Click() Dim y As Integer Do y = InputBox(y=) If (y Mod 10) + Int(y / 10) = 10 Then Print y Loop Until y

40、= 0End Sub 参考答案：DA、37 55 64 28 19 19 B、10 50 20 C、10 50 20 0 D、37 55 64 28 19第6题：【程序说明】写出下列程序运行时，单击命令按钮后，窗体上的显示结果。Private Sub Cmdok_Click() Dim x As Integer, y As Integer x = 12: y = 32 Call Proc(x, y) Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10 End Sub A. 2 32 B、12 3 C、2 2 D、12 32 参考答案：A第1题：编