《春季学期可视化程序设计VB第三次作业1》由会员分享，可在线阅读，更多相关《春季学期可视化程序设计VB第三次作业1（7页珍藏版）》请在金锄头文库上搜索。
1、2011年春季学期可视化程序设计（VB）第三次作业一、填空题（本大题共28分，共 7 小题，每小题 4 分）1. 在Print方法中，若用逗号分隔， 则按 _ 格式输出各表达式的值，若用分号分隔，则按 _ 格式输出各表达式的值。2. 若屏蔽框架上的控件对象，则需设置 _ 属性的值为False。3. 在用Show方法后显示自定义对话框时，如果Show方法后带 _ 参数就将窗体作为模式对话框显示。4. 结构化程序设计的三种基本结构是 _ 、 _ 、 _ 。5. 在mousedown和mouseup事件过程，当参数button的值为 _ 、 _ 、 _ 时，分别代表鼠标的 _ 、 _ 、 _ 键。6
2、. 与下列8e3ln2数学式子对应的Visual Basic表达式是 _ 。7. 如果需要将窗体载入内存却不显示，需要将该窗体的 _ 属性设置为False，再用 _ 语句装载。二、程序阅读题（本大题共36分，共 6 小题，每小题 6 分）1. 若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？ Dim filename As String Dim str As String CommonDialog1.Filter = 文本文件(*.TXT)|*.txtCommonDialog1.Action = 1filename = CommonDialog1.filen
3、ameCommonDialog1.ShowColor Form1.ForeColor = CommonDialog1.Color Open filename For Input As #1 Do While Not EOF(1) str = str + Input(1, #1) Loop Form1.Print str Close 12. 下面程序的功能是什么？ Private Sub Command1_Click() Dim s%, n% Dim a As String n = 0 a = InputBox(Please input a number:) For s = 1 To Len(a
4、) If (func(Val(Mid(a, s, 1) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Boolean If (x Mod 2 = 0) Then func = True Elsefunc = False End If End Function3. 下面事件过程的功能是：输入n的值，求sum=1+2+n的值，在横线上填上适当的内容。 Private Sub Command1_Click() Dim n%, i%, sum& n=InputBox(n=) i=1: sum=0 20: If in Then
5、GoTo 10Else (1)i=i+1 (2) End If 10: Print sum=; sum End Sub4. 有如下事件过程，写出程序的功能（数学表达式）。 Private Sub Command1_Click() T=0M=1 Sum =0Do T=T+M Sum =Sum+T M=M+2 Loop While M=90 Then Grade=”A” ElseIf score=80 Then Grade=”B” ElseIf score=70 ThenGrade=”C” ElseIf score=60 Then Grade=”D” ElseGrade=”E”End If Pri
6、nt 该学生的分数等级为：; grade; End Sub三、问答题（本大题共36分，共 6 小题，每小题 6 分）1. 根据访问模式，文件分为哪几种类型？2. 菜单名与菜单项有什么区别？3. KeyPress与 KeyDown事件的区别是什么？4. 在程序运行时怎样在图形（像）框中装人或删除图形？5. 怎样用Circle方法画圆、椭圆、圆弧和扇形？6. 字符串运算符“”和“+”有什么区别？答案：一、填空题（28分，共 7 题，每小题 4 分）1. 参考答案：标准、紧凑解题方案：评分标准：22. 参考答案：Enabled解题方案：评分标准：23. 参考答案：vbModal或1解题方案：评分标准
7、：24. 参考答案：顺序结构、选择结构、循环结构解题方案：评分标准：25. 参考答案：1、2、4；左、右、中间解题方案：评分标准：26. 参考答案：8*Exp(3)*Log(2)解题方案：评分标准：27. 参考答案：Visable；Load解题方案：评分标准：2二、程序阅读题（36分，共 6 题，每小题 6 分）1. 参考答案：以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上解题方案：使用通用对话框改颜色评分标准：62. 参考答案：判断一个数各位上的偶数个数解题方案：理解判断偶数的表达评分标准：63. 参考答案：（1）sum=sum+i （2）GoTo 20解题方案：根据要求，
8、设计每一步的代码评分标准：64. 参考答案：程序的功能：程序用于计算数学表达等式为：1223242202=2870解题方案：循环计算评分标准：65. 参考答案：18解题方案：正确使用时钟控件评分标准：66. 参考答案：Private Sub Command1_Click() Dim score!, grade$ score=InputBox(请输入一个学生的分数：)Select Case scoreCase Is=90 grade=ACase Is=80 grade=BCase Is=70grade=C Case Is=60 grade=D Case Else grade=E End Sele
9、ct Print 该学生的分数等级为：; grade; End Sub解题方案：区别条件语句与分支语句的功能评分标准：6三、问答题（36分，共 6 题，每小题 6 分）1. 参考答案：根据访问模式文件分成顺序文件、随机文件、二进制文件。顺序文件可按记录、按行、按字符数三种方式读出；随机文件按记录为单位读出；二进制文件按字节为单位读出。解题方案：评分标准：42. 参考答案：菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。解题方案：评分标准：43. 参考答案：KeyPress指按下对应某
10、ASCII 字符的键。 KeyDown指按下键盘的任意键。解题方案：KeyPress与 KeyDown事件评分标准：44. 参考答案：在程序运行时可以通过LoadPicture（）函数、剪贴板ClipBoard对象和对象间图片的相互复制三种方法在图形（像）框中装人图形，删除Picture属性中的图形只需要调用无参数的LoadPicture（）函数。解题方案：评分标准：45. 参考答案：Circle方法的语法为：CircleStep（x，y），radius，color，start，end，aspect 参数aspect指定圆的纵横尺寸比，缺省值为1.0，产生一个标准圆；若取值非10，绘制椭圆。 参数start和end指定（以弧度为单位）弧的起点和终点位置。其范围从-2到2。起点的缺省值是 0；终点的缺省值2。如果start或end为负，Circle绘制圆心到该点的一条半径，并将角度处理为正的。 当用Circle方法画圆弧和扇形时，若起始角的绝对值大于终止角的绝对值，则所画圆弧或扇形的圆弧角度大于180o。解题方案：评分标准：46. 参考答案：+（连接运算）：两个操作数均应为字符串类型； &（连接运算）：两个操作数既可为字符型也可为数值。解题方案：“”和“+”的特点评分标准：4
