vb课后习题答汇总.docVIP

课后习题参考答案 第1章Visual Basic 6.0 判断题 1－－5：√×√×√ 6――10：××√×√ 11――13：√×× 选择题 1――5：ADBBB 6――10：.CACDB 填空题 图片框和框架 对象 控件 屏幕 Load Load Activate 程序设计题 1、 Private Sub Command1_Click() Print Text1.Text End Sub Private Sub Command2_Click() End End Sub 2、 Private Sub Command1_Click() Form1.FontSize = Form1.FontSize + 3 Print 青春无悔 End Sub Private Sub Command2_Click() FontSize = FontSize - 3 Print 青春无悔 End Sub Private Sub Command3_Click() Form1.FontBold = True Print 青春无悔 End Sub Private Sub Command4_Click() FontBold = False Print 青春无悔 End Sub 3、 Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.FontName = 楷体_gb2312 Text1.FontSize = 15 Text1.Text = 我学会了创建一个应用程序了！ End Sub 第二章 判断题：1~5 错 错 错 错 错 第3章顺序结构程序设计 一、思考题 略 二、程序阅读题 1． A=2 B=1 C=2 12 BABCBACBC 1 2 False 1-12-123-1234- 三、选择题 1.B 2.D 3.B 4.B 5.D 6.C 四、程序设计题 １． Private sub form_click() Dim r!,s! R=val(inputbox(“r=”)) S=3.14159*r*r Print “s=”;s End sub 2． Private sub form_click() 　 Dim x as single X=val(inputbox(“x=”)) Print fix(x*x*1000)/1000,fix(sqr(x)*1000)/1000 End sub 第4章 选择结构程序设计 判断题 1.错 2.错 3.错 4.错 5.对 选择题 1．A 2. D 3.A 4.B 5.A 6.A 程序阅读题 1． X=3 y=7 2. w=4 w=13 w=135 w=31 3. X_`a12 Uvw 4. 12 9 程序填空题 1． (1) chr(keyascii) (2) chr(keyascii)=”)” (3)count1=count1-1 (4)count1=0 (5)count10 2． (1) max (2)min (3)cmax (4)cmin 3. x mod 3=2 and x mod 5=3 and x mod 7=4 then text1.setfocus (3) text1.selstrat=0 (4)text1.sellength=len(text1.text) 五、 1. Private Sub Command1_Click() Dim y As Integer y = Val(InputBox(y=)) If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then Print 是闰年 Else Print 不是闰年 End If End Sub Private Sub Command1_Click() Dim y As Integer,y1 as string y = Val(InputBox(y=)) If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then Y1= 是闰年 Else Y1= 不是闰年 End If