大学vb程序设计资料

《大学vb程序设计资料》由会员分享，可在线阅读，更多相关《大学vb程序设计资料（71页珍藏版）》请在金锄头文库上搜索。

1、 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、面向过程、顺序

3、驱动D、面向对象、事件驱动 第 2 题：在窗体 Form1 的 LOAD 事件过程中有语句：Form1.Print “Visual Basic“，但运行时 窗体并未显示打印文字，此时需要修改窗体的_属性,才能使窗体启动有输出结果 。A、AutosizeB、EnabledC、AutoredrawD、Visible第 3 题：下面哪一项不可以赋值给数值型变量？ A、123.4B、“123.4“C、1.234F2D、1.234E2第 4 题：下面合法的变量名是_。 A、EndB、privateC、ABC_1D、4A第 5 题：由“For i=1 To 9 Step -3”决定的循环结构被执行_次。A

4、、4B、5C、6D、0第 6 题： 文本框控件的 Alignment 属性决定_。 A、是否显示多行文本B、鼠标移至控件时，所显示的提示C、显示文本的对齐方式D、文本框的显示内容第 7 题： 将命令按钮 Command1 设置为窗体的取消按钮，可修改该控件的_属性。A、EnabledB、ValueC、DefaultD、 、Cancel第 8 题：下列_是用来画圆、圆弧及椭圆的。A、Circle 方法B、Pset 方法C、Line 方法D、Point 属性第 9 题：用户可以通过设置菜单项的 _属性值为 False 来使该菜单项不可见。A、HideB、VisibleC、EnabledD、Chec

5、ked第 10 题：执行语句“Write #1, 123; -34.56, “hey“; 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 Int

6、egerDim i As Integer, j As IntegerForm1.Print “原始数据“For i = 1 To 6For j = 1 To 6a(i, j) = Int(Rnd * 10)Form1.Print a(i, j);Next jForm1.PrintNext iFor i = 2 To 6For j = 1 To - 1 - 2 -Next jNext iForm1.Print “转置后数据“For i = 1 To 6 For j = 1 To 6- 3 -Next j Form1.PrintNext I End Sub Public Sub Swap(a As

7、 Integer, b As Integer)Dim temp As Integertemp = 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 标题分别为“开始” 、 “结束” 。运行时，单击“开始”按 钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按

8、钮后，计时结 束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数） 。Dim x as long Private Sub Form_Load()Timer1.Interval = 60000: Timer1.Enabled = False End Sub Private Sub Command1_Click()Clsx = 0-1- End Sub Private Sub Command2_Click()Dim h As Integer, m As Integer, s As IntegerTimer1.Enabled = Falseh = -2-m = x mod 60Print “

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

10、age1_Click(Index As Integer)-1-Picture1.FontSize = 20-2- = vbBluePicture1.Cls-3- Case 0Picture1.Print “红桃被选中“Case 1Picture1.Print “草花被选中“Case 2Picture1.Print “方片被选中“Case 3 Picture1.Print “黑桃被选中“End Select End Sub参考答案：Image2.Picture =Image1(Index).Picture 参考答案：Picture1.ForeColor 参考答案：Select Case Inde

11、x 第 4 题： 【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字 体、字号和字效等进行设置。 Private Sub Form_Click()-1-259CommonDialog1.Action =-2-Text1.FontBold =-3-Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSize End Sub 参考答案：CommonDialog1.Flags 参考答案：4 参考答案

12、： CommonDialog1.FontBold 四：阅读题 第 2 题：请写出鼠标点击弹出菜单第三项后窗体上的显示结果。 Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu mnuPopup, 10 End Sub mnuChoice1、2、3 顺序为菜单项 mnuPopup 的下一级子菜单名 Private Sub mnuChoice1_Click()Label1.caption=”折叠” print L

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

14、” End Sub A、 李小丽 B、李 welcome! welcome! 李小 welcome! 李小丽 welcome! C、丽 welcome! D、李小丽 welcome! 参考答案 B、 第 3 题：写出程序运行时单击窗体后，在图片框上出现的结果。 Private Sub Form_Load()Picture1.Width = Picture1.Height End Sub Private Sub Form_Click() Dim i As Single, x As Single, y As Single Picture1.Scale (-100, 100)-(100, -100)

15、 For i = 0 To 2 * 3.1415926 Step 0.0001x = 100 * Cos(i)y = 100 * Sin(i)Picture1.Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) Next i End Sub 答案 第 4 题：写出程序运行时单击窗体后，a1.dat 文件的结果。 Private Sub Form_Click()Dim k as integer, I as integer Open “a1.dat“ For Output As #1 For k=5 to 1 step -1For i = 1 To k : Print #1,k; : Next iPrint #1,Next k Close #1 End SubA、 1 1 1 1 1 2 2 2 2 3 3 3 4 4 5 B、1 2 3 4 5 C、 5 5 5 5 5 4 4 4 4 3