VB程序设计阶段性作业41_免费下载.doc

中国地质大学（武汉）远程与继续教育学院中国地质大学(武汉)远程与继续教育学院VB程序设计 课程作业4（共 4 次作业）学习层次：专升本 涉及章节：第10章 第12章一、判断题1在窗体上绘制CommonDialog控件时，控件的大小、位置可由用户自己加以设定。2当一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。3用Cls方法能清除窗体或图片框中用Picture属性设置的图形。4影像框和图片框一样，也可以作为其他控件的容器。5BorderWidth属性表示指定直线和形状边界线的线条宽度，该属性值不能设置为0。6目录列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。7若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。8可以用AddItem方法向目录列表框中加入新表项。9文件操作语句Name不仅可以修改文件名称，而且可以移动文件的位置。10文件以INPUT模式打开后可以往文件中写入数据。11用OUTPUT模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。二、选择题1用户可以通过设置菜单项的 属性值为False来使该菜单项失效。A、Hide B、Visible C、Enabled D、Checked2菜单编辑器中，同层次的 设置为相同，才可以设置索引值。A、Caption B、Name C、Index D、ShortCut3将图片框的 属性设置成True时，可使图片框根据图片调整大小。A、Picture B、AutoSize C、Stretch D、AutoRedraw4 属性可以用来设置所绘线条宽度。A、DrawStyle B、BorderStyleC、DrawWidth D、FillColor5语句“Circle(1000,1000),800,2”绘制的是 。A、弧 B、椭圆 C、扇形 D、同心圆6BorderStyle属性是用来表示线条的 。A、长度 B、宽度 C、线形 D、颜色7下列 方法或函数可以调用外部的可执行文件。A、Show B、Shell C、Input D、Open8执行语句“Write #1, 234; -34.56, hello; Date”后，相应文件内被写入 。A、234,-34.56,hello,2001-08-03 B、234,-34.56,hello,2001-08-03C、234,-34.56,hello,#2001-08-03# D、234 -34.56 hello 2001-08-039下面 选项能表示目录列表框控件dir1的当前目录。A、dir1.list(list1.listindex) B、dir1.list(-1)C、dir1.list(list1.listcount) D、dir1.list(0)10 方式打开的文件只能读不能写。A、append B、random C、output D、input11语句“open c:dat.txt for output”用于打开一个顺序文件，该语句的一个重要错误是没有 。A、指定打开方式 B、指定文件号 C、指定文件名 D、指定打开类型三、填空题1如果工具箱中还没有CommonDialog控件，则应从 菜单中选定 ，并将控件添加到工具箱中。2在设计菜单时，可在Visual Basic主窗口的菜单栏中选择 ，单击后从它的下拉菜单中选择“菜单编辑器”菜单项。3在图片框中加一幅图片（从磁盘装入）可用 函数来实现。4若控件Picture1中要显示C:盘Windows目录下的Cloud.bmp图片，则它的方法是 。5画椭圆的方法中，半径以后的参数依次是 、 、 、 。6文件的当前读写位置是否到达文件末尾，应用 函数。7读文件的 语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。四、程序阅读题程序1. 写出程序运行时单击窗体后的结果。Private Sub Form_Click() Dim i As Integer For i = 1 To 1000 Call Circledemo Next iEnd SubSub Circledemo() Dim Radius As Single, XPos As Single, YPos As Single R = 255 * Rnd: G = 255 * Rnd: B = 255 * Rnd XPos = ScaleWidth * Rnd: YPos = ScaleHeight * Rnd Radius = (YPos * 0.9) + 1) * Rnd / 10 Circle(XPos, YPos), Radius, RGB(R, G, B)End Sub程序2. 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。Private Sub Form_Click() Dim a(1 to 6) As Integer, k As Integer, i As Integer, j As Integer Open c:a1.dat For Output As #1 For i = 1 To 6: j = i * i: Print #1, j; : Next i Close #1 Open c:a1.dat For Input As #1 k = 0 Do While Not EOF(1) k = k + 1: Input #1,a(k) Loop Close #1 For i = k To 1 Step - 1: Form1.Print a(i); : Next iEnd Sub程序3. 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的内容。Private Sub Form_Click() Dim n As byte,i As byte Open c:a1.dat For Output As #1 n = 6 For i = 1 To n: Print #1,i*2; : Next i Close #1 Open c:a1.dat For Input As #1 For i = 1 To n Input #1, a If i Mod 5 = 0 Then Print a*2 Next i Close #1End Sub程序4. 写出程序运行时单击窗体后，a1.dat文件的结果。Private Sub Form_Click() Open c:a1.dat For Output As #1 Call a(5): Close #1End SubPrivate Sub a(ByVal k) Dim i As Integer If k 0 Then a(k - 1) For i = 1 To k : Print #1,k; : Next i Print #1, End IfEnd Sub程序5. 写出点击3次窗体后，文件a1.txt中的内容。Private Sub form_click() Static k As Integer Dim j As Integer k = k + 1 Open a1.txt For Append As #1 For j = 1 To k: Print #1, j; : Next j Print #1, Close #1End Sub五、程序填空题1【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，命令按钮上显示文字“上一张”和“下一张”。运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。（假设在C:Windows目录下有1.bmp、2.bmp、8.bmp这样8张图片）Dim n As BytePrivate Sub Command1_Click() If n 8 Then Command2.Enabled = True n = n - 1 （1） If n = 1 Then Command1.Enabled = True Call pic If n = 8 Then Command2.Enabled = FalseEnd SubPrivate Sub Form_Load() n=1: Command1.Enabled = False: Image1.Picture = （4） End SubSub pic() Dim fn As String fn = c:windows + Trim(str(n) + .bmp Image1.Picture= （5） End Sub2【程序说明】右击窗体则打开Windows自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件。 （1） Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then n = n + 1: Shell （2） End SubPrivate Sub Command1_Click() Open C:a1.dat For （3） Print #1,n: Close #1 （4） End Sub3【程序说明】文件c:a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。Private Sub Command1_Click() Dim bs As String,cs As String Open c:a1.dat For Input As #1 Open temp.dat （1） bs = InputBox(输入学生姓名) Do While Not Eof(1) Line Input #1, cs if InStr(cs, Trim(bs) = （2） Then print #2,cs Loop Close #1: Close #2 Kill c:a1.dat Name （3） End Sub4【程序说明】本程序求3100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:dataout.txt；素数的个数显示在窗体Form1上。Private Sub Command1_Click() Dim coun As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer （1） coun = 0 For t1 = 3 To 100 flag = True For t2 = 2 To Int(Sqr(t1) If （2） then flag = False Next t2 （3） coun = coun+1 Write #1, t1 End If Next t1 （4） Close #1End Sub六、程序设计题1编程，在图片框中画一个以两点为对角的矩形（图片框中以像素为刻度单位，两点坐标用InputBox函数输入）。2编写程序，输入若干个学生的姓名、出生年月、两门统考课程（外语、计算机），存入磁盘文件d:student.dat（可以用记事本打开，观察运行结果的正确）。3编写程序，将磁盘文件d:student.dat中若干个学生的姓名、出生年月、两门统考课程（外语、计算机）显示在列表框中，并且能实现以下功能：直接输入在文本框中的文本可以追加；单击列表框某项，则该项可删除；文本框中的文本修改后可修改列表框中对应选项；首次运行时文件可以为空，退出系统前应保存文件。界面设计如图4-3所示。图4-3 程序设计题9的界面设计参考答案一、判断题1 2 3 4 56 7 8 9 10 11二、选择题1C 2B 3B 4C 5B6C 7B 8C 9D 10B 11B三、填空题1工程、部件2工具 3LoadPicture 4Picture1.Picture=LodePicture(C:WindowsCloud.bmp)5颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比6EOF 7Line Input四、程序阅读题程序1. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。程序2.窗体：36 25 16 9 4 1文件：1 4 9 16 25 36程序3. 窗体上显示内容：20 文件中内容：4 6 8 10 12 程序4. 12 23 3 34 4 4 45 5 5 5 5程序5. 11 21 2 3五、程序填空题1（1）Call pic （2）False （3）n = n + 1（4）LoadPicture(c:windows1.bmp) （5）LoadPicture(fn)2（1）Dim n As Integer （2）C:windowscalc.exe （3）Output （4）End3（1）For Output As #2 （2）0 （3）temp.dat As c:a1.dat4（1）Open e:dataout.txt For Output As #1 （2）t1 Mod t2 = 0 （3）If flag Then （4）Print coun六、程序设计题程序1界面设计略，过程设计如下：Private Sub Form_Load() Picture1.ScaleMode = 3End SubPrivate Sub Command1_Click() Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(x1=): y1 = InputBox(y1=) x2 = InputBox(x2=): y2 = InputBox(y2=) Picture1.Line (x1, y1)-(x2, y2), , BEnd Sub程序2建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件d:student.dat。过程设计如下：Private Sub Command1_Click() Dim b As Date, m As Byte, e As Byte Open d:student.dat For Append As #1 b = Text2.Text: m = Text3.Text: e = Text4.Text Write #1, Text1.Text, b, m, e Text1.Text = : Text2.Text = : Text3.Text = : Text4.Text = Close #1End Sub程序3界面设计如图10-11所示，过程设计如下：Private Sub Form_Load() Dim ss As String Open e:student.txt For Append As #1如文件不存在则先建立该文件 Close #1 Open d:student.dat For Input As #1 将文件中所有记录在列表框中显示 While Not EOF(1) Line Input #1, ss: List1.AddItem ss Wend Close #1 在选中表项之前“删除”、“修改”按钮不可用 Command2.Enabled = False: Command3.Enabled = FalseEnd SubPrivate Sub List1_Click() 选中表项后可“删除”或“修改”，不可“追加”。 Command1.Enabled = False: Command2.Enabled = True Command3.Enabled = True: Text1.Text = List1.TextEnd SubPrivate Sub Command1_