期末复习《vb程序设计》期末复习题及答案.docx

1、期末复习vb程序设计期末复习题及答案vb程序设计期末复习题及答案一、填空题1创建一个VB应用程序三个主要的步骤是_、_和_。2当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_窗口中，把此文本框的_属性设置成空白。3Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_控件；若允许用户输入文本，则应使用_控件。4窗体的常用方法有_、_、_和_。5要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_。6若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下

2、事件过程填空。Private Sub Cmdopen_ _End Sub7Visual Basic 6种类型的表达式是_、_、_、_、_、_。Visual Basic根据表达式的_来确定表达式的类型。8表达式93 7 Mod 2 2 的值是_。9已知a=3，b=4，c=5，表达式ab and Not ca Or cb And ca And Not b=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W a + b Or b - 1 c - 1 And c + a a Xor b c - 2End Sub7#12/31/1999# - #12/20/1999

3、#的运算结果是#12/11/1999#8可以在窗体的通用部分声明静态变量。9使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。10事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。11将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。12当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。四、读程序题，写出程序运行结果。1Private Sub

4、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 IEnd Sub2Option ExplicitPrivate Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print SEnd Sub3 For

5、X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); *; Next Y PrintNext X4 Private Sub Form_Activate()Print aa & bb,-5 * 6,Not 2 = 3Print aa & bb; -5 * 6; Not 2 = 3PrintPrint 30+60,Print 30 + 60？30+60; 30 + 60End Sub5X=1Do While X=10If X Mod 7 =0 ThenY = X + 6ElseZ = XEnd IfX = X + 2LoopPrint X,

6、Y,Z五、编程题1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。2设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位

7、在文本框Text1中，选中其中的文本。3设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4任意输入3个数，求大小排第二的那个数，写出程序代码。 VB期末复习参考答案一、填空题1创建应用程序界面 设置属性 编写代码2属性、text3Label TextBox4Load方法 Show方法 Hide方法 Unload方法5txtshow.text=GOOD WORK6Click()、frm1.show7算术表达式 字符串表达式

8、关系表达式 布尔表达式 日期表达式 对象表达式 运算符819True False101211Sin(x) 2 + Sqr(x 2 - y 2) / (2 * x)12Dim A(1 To 5，-2 To 6) As String13单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click14完成某种特定的功能 对象名.方法名 Form1.Show15AutoSize Stretch16FileCopy c:，d:二、单项选择题1B 2C 3C 4D 5D 6B 7B8D 9D 10C 11D 12A 13C三、指出下列句中的错误，修改或者说明原因。1int.sum 不正确。变

9、量名中不能包括小数点。2变量名的长度最长可达255个字符。3 3.6 ， 4因为a 不是整型变量。4不正确。程序不可以改变字符的长度，这是VB规定。5不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。6False 。逻辑表达式计算结果。7不正确。两个日期型数据相减，其结果是一个数值型数据。8不正确。静态变量为局部变量，只能在过程中声明。9正确。10正确。11正确。12不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。四、读程序题，写出程序运行结果。1

10、程序运行后，单击窗体，输出结果为：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 12程序运行后，单击按钮Command1，输出结果为：120。3. * * * * *4.aabb -30 Falseaabb-30 False30+60 9030+60 905. 11 13 9五、编程题1Private Sub Command1_Click(

11、) Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate 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 IfEnd SubPrivate Sub Command3_Click() Unl

12、oad MeEnd Sub2Private 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 IfEnd Sub3Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Fo

13、nt.Bold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End IfEnd SubPrivate Sub Command1_Click() Unload MeEnd Sub4a = Val(InputBox(输入第一个数：)b = Val(InputBox(输入第二个数：)c = Val(InputBox(输入第三个数：)If a b Then t = a: a = b: b = tIf a c Then t = a: a = c: c = tIf b c Then t = b: b = c: c = tMsgBox (求大小排第二的数是： & b)