VB程序设计(专)练习一至四答案.doc

第一阶段练习题(参考答案)一、单项选择题题号12345678910答案CBDDCBBCDC题号11121314151617181920答案ACCABABDDA题号2122232425262728答案DBBABDAD二、填空题1视图2工具箱3工具4选项5编辑器6对象的性质，来描述和反映对象特征的参数7对象的动作、行为8Form窗体9Font10Multilint11在运行时设计是无效的12Style13Style14Locked15TabIndex16017VB9818219定义对象属性20赋值三、程序填空题1 Load False Change Text2 + Text12 (Form1.ScaleHeight - Text1.Height) + vbCrLf +四、编程题1操作步骤：启动VB6.0选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。单击工具箱的“标签”标准控件，在窗体上建立一个标签。同样操作在窗体上建立三个标签、一个文本框和一个命令按钮。窗体属性的设置如表1所示。控件属性的设置如表2所示。控件设置后的界面如图1所示表1窗体属性列表控件名称属性属性值Form1Caption基本控件示例Form1Font宋体、小四号表2控件属性列表控件名称属性属性值Label1CaptionVB程序设计和数据库Label1AutoSizeTrueLabel2Caption请输入您的姓名Label2AutoSizeTrueLabel2Font粗斜Label3AutoSizeTrueLabel3BoardStyle1-Fixed SingleText1Text空Command1Caption单击在标签内显示图1设计界面代码设计：双击Command1控件，或在“视图”菜单中选择“代码窗口”命令，出现代码窗口，选择Command1控件的Click项，然后Command1_Click( )过程代码如下：Private Sub Command1_Click() Label3 = 欢迎 + Text1 + 同学参加VB学习！End Sub运行测试：在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入自己的姓名后，单击命令按钮，出现图2所示的运行界面。保存窗体文件和工程文件。图2运行界面2（1）操作步骤：启动VB6.0选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。在窗体上建立三个标签、三个文本框和三个命令按钮。（2）控件属性的设置如表1所示。控件设置后的界面如图1所示表1控件属性列表控件名称属性属性值Label1Caption操作数1Label2Caption操作数2Label3Caption操作数3Text1Alignment2Text2Alignment2Text3Alignment2Command1CaptionCommand2CaptionCommand3Caption退出图1设计界面（3）代码设计：Private Sub Form_Load() Text1 = Text2 = Text3 = End SubPrivate Sub Command1_Click() Text3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click() Text3 = Val(Text1) Val(Text2)End SubPrivate Sub Command3_Click() EndEnd Sub（4）运行测试：在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入操作数1和操作数2后，单击命令按钮，出现图2所示的运行界面。（5）保存窗体文件和工程文件。图2运行界面3（1）操作步骤：启动VB6.0选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。在窗体上建立三个标签、一个文本框和两个命令按钮。（2）控件属性的设置如表1所示。控件设置后的界面如图1所示表1控件属性列表控件名称属性属性值Label1Caption地球人类的家园Label2Caption水更绿，地更青Label3Caption居更佳，人更欢Text1Alignment2Command1Caption单击在文本框内显示Command2Caption退出图1设计界面（3）代码设计：Private Sub Command1_Click() Text1 = Label2.Caption + ， + Label3.Caption Label2.Visible = False Label3.Visible = FalseEnd SubPrivate Sub Command2_Click() EndEnd Sub（4）运行测试：在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，出现图2所示的运行界面。（5）保存窗体文件和工程文件。图2运行界面4（1）操作步骤：启动VB6.0选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。在窗体上建立两个标签、两个文本框和一个命令按钮。（2）控件属性的设置如表1所示。控件设置后的界面如图1所示表1控件属性列表控件名称属性属性值Label1Caption输入圆半径：Label2Caption显示圆面积：Text1Text空Text2Text空Command1Caption运算图1设计界面（3）代码设计：Private Sub Command1_Click() r = Val(Text1) Text2 = 3.14159 * r * rEnd Sub（4）运行测试：在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态。（5）保存窗体文件和工程文件。第二阶段练习题(参考答案)一、单项选择题题号12345678910答案CCBABDBBCA题号11121314151617181920答案DBCADBADBB题号21222324252627282930答案CBCBACCADA题号31323334353637383940答案BDCDCCDACA题号41424344454647484950答案BCCABBACCA二、填空题1标识符2Mid(”Made In China”,6,2)3Int(Rnd*(b-a+1)+a405Cint（3421.79）6未尾7浮点数除法809函数运算10算术运算11关系运算12逻辑运算13变体类型或Variant类型14整型15长整型16单精度型17双精度型18(x Mod 10)*10+x1019x Mod 5=0 OR x Mod 9=020False21CDFE22If i Mod 2=0 Print i23If x0 Then s1=s1+x Else s2=s2+x24循环体25条件表达式26跳出循环27多重循环281429To -5 Step -13010三、程序填空题1a1;a2;a3 Sum Aver 2 y x3 UCase(Chr(KeyAscii) C A, E, I, O, U Else KeyAscii = 134 Len(a) Mid(a, i, 1) d + c5 True Tag = False m = m + 16 Val(Text3.Text) t = b: b = c: c = t7 b = Val(InputBox(请输入第二个数, 输入对话框) m = b8 ch = A And ch = Z Text2.Text = ch9 s = 0 Tab(10); s=; s10 x; While x 30四、程序阅读题17 2a=15 3 424 105 * *6 2 20 3 21 4 22 5 237 *$*$8 13 6五、编程题1Private Sub Command1_Click() a = Int(Rnd * 100) b = Int(Rnd * 100) c = Int(Rnd * 100) If (a c Then Min = c End If Print a; b; c Print Min=; MinEnd Sub2Private Sub Command1_Click() y = Val(InputBox(请输入年份) If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then Print y & 年是闰年 Else Print y & 年不是闰年 End IfEnd Sub3Private Sub Command1_Click() y = Val(InputBox(请输入学生成绩) If y = 85 Then Print Very good ElseIf y = 65 And y 85 Then Print good ElseIf y c And b + c a And a + c b Then L = (a + b + c) / 2 s = Sqr(L * (L - a) * (L - b) * (L - c) Print 三角形面积为: & s Else MsgBox 输入的三条边的值不能构成三角形，请重新输入 End If LoopEnd Sub5Private Sub Command1_Click() x = Val(InputBox(请输入正整数M) y = Val(InputBox(请输入正整数N) m = x: n = y r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Print M=; x Print N=; y Print 两数的最大公因子为: ; nEnd Sub6Private Sub Command1_Click() t = 1 For n = 1 To 9 t = t * n Next Print 9!=; tEnd Sub7Private Sub Command1_Click() For i = 100 To 200 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i End If NextEnd Sub8Private Sub Command1_Click() For i = 100 To 999 X1 = i Mod 10 X2 = i 10 Mod 10 x3 = i 100 If X1 3 + X2 3 + x3 3 = i Then Print i End If NextEnd Sub第三阶段练习题(参考答案)一、单项选择题题号12345678910答案DBDCDDBAAC题号11121314151617181920答案BDCDCACCBD二、填空题1名字2类型3下标4Dim a(0 to 5, -3 to 6) as Integer506通用声明7Option Base8可调数组9可变类型数组10同一个事件过程11Index12IsArray13局部变量14Eed Sub15Exit Sub16Rnd17Static18窗体模块19标准模块20类模块21函数过程名22整个应用程序23作用域24传值参数25传址参数26该窗体模块或标准模块三、程序填空题1Int(Rnd * 100 + 1) String(a(i) 2, *); a(; i; )=; a(i) 2ReDim a(n, n) y 1 To (n + 1) 2 a(j, k) = i Print3 a(7) a(j + 1) = a(j) a(1) = t4 Preserve a(n + 1) a(i + 1) = a(i) a(i + 1) = m5 m(1) * 3 n = 36 m 0 m To n n = n - 1 m = m 1 b()7 common_divisor = x common_divisor(a, b)8 Dem = Convert(St) Mid(S, i, 1) Asc(SubC) - Asc(A) + 10 Convert = p 四、程序阅读题149 21 2 3 2 3 1 3 2 3 3 1 2 34 6 94 2 32 23 33 2 3 3 3 34 43 45 2 346 277 a=4 b=6 c=6 a=8 b=6 c=68 3 5 7 4 5五、编程题1Private Sub Command1_Click() Randomize Dim a(100) As Integer n = 0 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) 50 Then Print a(i); n = n + 1 If n = 10 Then Print n = 0 End If End If NextEnd Sub2Private Sub Command1_Click() Randomize n = Int(Rnd * 100) ReDim a(n) As Integer For i = 1 To n a(i) = Int(Rnd * 100) Next aver = a(1) Max = a(1) For i = 2 To n aver = aver + a(i) If Max a(i) Then Max = a(i) Next aver = aver / n For i = 1 To n Print a(i); If i Mod 10 = 0 Then Print Next Print Print 平均值=; aver Print 最大值=; MaxEnd Sub3.Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Val(InputBox(请输入第 & i & 个数) Next Print 交换前: For i = 1 To 10 Print Str(a(i); Next For i = 1 To 5 temp = a(i): a(i) = a(11 - i): a(11 - i) = temp Next Print Print 交换后: For i = 1 To 10 Print Str(a(i); NextEnd Sub4Private Sub Command1_Click() Randomize m = Val(InputBox(请输入M的值) n = Val(InputBox(请输入N的值) ReDim a(m, n) As Integer For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 100) Next Next Max = a(1, 1): max_i = 1: max_j = 1 For i = 1 To m For j = 1 To n If Max b Then max1 = a Else max1 = b End If If max1 c Then max1 = c max = max1End FunctionPublic Function min(ByVal a, ByVal b, ByVal c) If a c Then min1 = c min = min1End FunctionPrivate Sub Command1_Click() Cls n = Val(InputBox(请输入3或5或7) ReDim a(n) As Integer For i = 1 To n a(i) = Val(InputBox(请输入第 & i & 个数) Print a(i); Next Print Select Case n Case 3 max1 = max(a(1), a(2), a(3) Print max=; max1 min1 = min(a(1), a(2), a(3) Print min=; min1 Case 5 max1 = max(max(a(1), a(2), a(3), a(4), a(5) Print max=; max1 min1 = min(min(a(1), a(2), a(3), a(4), a(5) Print min=; min1 Case 7 max1 = max(max(max(a(1), a(2), a(3), a(4), a(5), a(6), a(7) Print max=; max1 min1 = min(min(min(a(1), a(2), a(3), a(4), a(5), a(6), a(7) Print min=; min1 End SelectEnd Sub7Public Function aaa(a As Integer) If a Mod 2 = 0 Then aaa = True Else aaa = False End IfEnd FunctionPrivate Sub Command1_Click() Print aaa(Val(Text1)End Sub第四阶段练习题(参考答案)一、单项选择题题号12345678910答案CAABDADADA题号11