VB程序设计试题及答案.pdf

VB 程序设计期末模拟试题及答案程序设计期末模拟试题及答案 双击自动滚屏发布者：汤中艮 发布时间：2009-12-7 阅读：1639 次 VB期末复习题及答案 综合复习题 一、填空题 1创建一个 VB 应用程序三个主要的步骤是_创建应用程序界面_、_设置属性_和_编写代码_。 2当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性_窗口中，把此文本框的_ _text_属性设置成空白。 3Label 和 TextBox 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_Label_控 件；若允许用户输入文本，则应使用_TextBox_控件。 4窗体的常用方法有_Load 方法Show 方法Hide 方法Unload 方法_。 5要想在代码中给名为 txtshow 的文本框赋予文本：GOOD WORK ，应当编写的语句是_txtshow.text=“GOO D WORK_。 6若命令按钮的名称为 Cmdopen，程序要求单击该命令按钮时，打开一个窗口 frm1，请对以下事件过程填空。 Private Sub Cmdopen_ _Click()、frm1.show_ End Sub 7 Visual Basic 6 种类型的表达式是_算术表达式 字符串表达式 关系表达式 布尔表达式日期表达式对象表达 式_。Visual Basic 根据表达式的_运算符_来确定表达式的类型。 8表达式 93 7 Mod 2 2 的值是_1_。 9已知 a=3，b=4，c=5，表达式 ab and Not ca Or cb And ca And Not b=1.7 And W=62.5 C、T1.7 And W=1.7 Or W a + b Or b - 1 c - 1 And c + a a Xor b c - 2 End Sub 7#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999#不正确。两个日期型数据相减，其结果是 一个数值型数 8可以在窗体的通用部分声明静态变量。不正确。静态变量为局部变量，只能在过程中声明。 9使用声明语句建立一个变量后，Visual Basic 会自动对数值类型的变量赋初值 0，变长的字符串被初始化为一个零 长度的字符串“，定长字符串用空格填充，Variant 变量被初始化为 Empty，布尔型的变量被初始化为 False。 T 10事件过程通常由事件驱动执行，而 Sub 过程通过过程调用执行。T 11将焦点主动设置到指定的控件或窗体上应采用 SetFocus 方法。T 12当图像控件（Image）的 Stretch 属性为 True 时，Image 控件能自动调整自己的尺寸与显示的图片匹配。 不正确。该属性设为 Ture 时，Image 控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应 控件的尺寸。 四、读程序题，写出程序运行结果。 1Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print “ “; Next j For k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2 Option Explicit Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 程序运行后，单击按钮 Command1，输出结果为：120。 3 For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); “*“; Next Y Print Next X * * * * * 4 Private Sub Form_Activate() Print “aa“ -5 * 6; Not 2 = 3 Print Print “30+60“, Print 30 + 60 ？ ？“30+60“; 30 + 60 End Sub aabb-30False aabb-30 False 30+6090 30+60 90 5 X=1 Do While X=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z 11139 五、编程题 1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框 1（text1）、文本框 2（text2）、文本框 3 （text3）、文本框 4（text4），和三个按钮：命令按钮 1（command1）、命令按钮 2（command2）、命令按钮 3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写 不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 答案答案 ： Private Sub Command1_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ End Sub Private Sub Command2_Click() a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If a = “ Or b = “ Or c = “ Then MsgBox “成绩填写不完全！成绩填写不完全！“, vbCritical Else Text4.Text = (Val(a) + Val(b) + Val(c) / 3 End If End Sub Private Sub Command3_Click() Unload Me End Sub 2设计程序。要求：从文本框 Text1 中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件： 除以 3 余 2，除以 5 余 3，除以 7 余 4，则输出；否则将焦点定位在文本框 Text1 中，选中其中的文本。 答案：答案： Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 3设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文 字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结 束，则退出。 答案答案: Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click() Unload Me End Sub 4任意输入 3 个数，求大小排第二的那个数，写出程序代码。 a = Val(InputBox(“输入第一个数：输入第一个数：“) b = Val(InputBox(“输入第二个数：输入第二个数：“) c = Val(InputBox(“输入第三个数：输入第三个数：“) If a b Then t = a: a = b: b = t If a c Then t = a: a = c: c = t If b c Then t = b: b = c: c = t MsgBox (“求大小排第二的数是：求大小排第二的数是：“ & b) 一、填空题 1创建应用程序界面设置属性编写代码 2属性、text 3LabelTextBox 4Load 方法Show 方法Hide 方法Unload 方法 5txtshow.text=“GOOD WORK“ 6Click()、frm1.show 7算术表达式 字符串表达式 关系表达式 布尔表达式日期表达式对象表达式运算符 81 9True False 1012 11Sin(x) 2 + Sqr(x 2 - y 2) / (2 * x) 12Dim A(1 To 5，-2 To 6) As String 13单击双击装载多响应某个事件后所执行的程序代码cmd1Click 14完成某种特定的功能对象名.方法名Form1.Show 15AutoSizeStretch 16FileCopy “c:“，“d:“ 二、单项选择题 1B2C3C4D5D6B7B 8D9D10C11D12A13C 三、指出下列句中的错误，修改或者说明原因。 1int.sum 不正确。变量名中不能包括小数点。 2变量名的长度最长可达 255 个字符。 3 3.6 ， 4 因为 a 不是整型变量。 4不正确。程序不可以改变字符的长度，这是 VB 规定。 5不完全正确。Variant 是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据， 这是 VB 规定。 6False 。逻辑表达式计算结果。 7不正确。两个日期型数据相减，其结果是一个数值型数据。 8不正确。静态变量为局部变量，只能在过程中声明。 9正确。 10正确。 11正确。 12不正确。该属性设为 Ture 时，Image 控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以 适应控件的尺寸。 四、读程序题，写出程序运行结果。 1程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2程序运行后，单击按钮 Command1，输出结果为：120。 3. * * * * * 4. aabb-30False aabb-30 False 30+6090 30+60 90 5. 11139 五、编程题 1 Private Sub Command1_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ End Sub Private Sub Command2_Click() a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If a = “ Or b = “ Or c = “ Then MsgBox “成绩填写不完全！“, vbCritical Else Text4.Text = (Val(a) + Val(b) + Val(c) / 3 End If End Sub Private Sub Command3_Click() Unload Me End Sub 2 Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 3 Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Ita