Visual BasicVB习题答案1.3答案.doc

1.3控件语句与程序调试 一．选择题 1. C 2. (1) B (2) C (3) B 3.(1)A (2)B (3)B 4.B 5.C 6.A 7.D 8.A 二．1.600.3 2.5 5 3.Boolean False 4.Boolaen Asc(Char) = Asc(“a”) And Asc(Char) = Asc(“z”) Flag或Flag = True 5.sgn 三．简答与编辑 1.程序有三种基本结构：顺序、选择与循环。举例略。 2.参考教材3.1.1小节中的“4.If语句嵌套”中的说明。 3.程序的错误类型分为三种：语法错误、运行错误和逻辑错误。举例略。 4.不是 5.参考程序 Private Sub Form_Click() Dim X As Integer Prompt = “输入一个正整数” X = InputBox(prompt,”输入”) If X Mod 2 0 Then Print “奇数” Else Print”偶数” End If End Sub 6.参考程序 Private Sub Form_Click() Dim X As Integer, Y As Long X = InputBox(“请输入X的值”,”输入”) Select Case X Case Is 7 Y = X ^2 + 1 Case 7 To 12 Y = 10 Case Is 12 Y = X ^3 – 1 End Select Print “Y =” Y End Sub 7.参考程序 Private Sub Form_Click() Dim I As Integer ,X%,A%,B%,C% For I = 1 To 10 X = InputBox(“请输入数据”,”输入”) If X 0 Then A = A + 1 ElseIf X 0 Then B = B + 1 Else C = C + 1 End If Next I Print “正数有”;A；”个”；”负数有”；B；”个”；”零有”；C；”个” End Sub 8.参考程序 Private Sub Form_Click（） Dim C %，B% ,A% ,intTemp% Randomize（Timer） A = (200 * Rnd) B = (200 * Rnd) C = (200 * Rnd) If A B Then ‘找出A和B中较小的一个数 intTemp = A A = B B = intTemp End If If A C Then ‘找出A和C中的较小的一个数 intTemp = A A = C C = intTemp End If If B C Then intTemp = B B = C C = intTemp End If Print A , B , C End Sub 9.参考程序 Private Sub Form_Click Dim r n%,min%,n%,i% Randomize (Timer) i = 1 min = 90*Rnd + 10 ‘假设第一个数最小 Print i, min For i = 2 To 20 r n = 90*Rnd +10 Print i , r n If r n min Then min = r n n = 1 End If Next i Print “最小数是”；min;”位置在”；n End Sub 10.参考程序 Private Sub Form_Click Dim a As Double，b As Double， c As Double a = 1 b = 2 Print 1 , a Print 2, b For i = 3 To 10 c = b^2 – a^2 ‘数列从第三项起是前两项的平方差 a = b b = c Print i , c Next i End Sub 11.参考程序 Private Sub Command_Click() For i = 100 To 500 ge = i Mod 10 求出个位 shi = （i\10） mod 10 求出十位 bai = i \ 100