VB课后答案

习题一

一、填空题

1.“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等

2.三；设计（Design）模式、运行模式（Run）和中断（Break）模式

3、工程1；1；Form1

4、选择菜单“视图|立即窗口”即可打开“立即”窗口；它是Visual Basic中的一个系统对象，叫Debug对象，可以在调试程序时使用它，通常使用Print方法向立即窗口中输出程序的信息，还可以将语句直接写在“立即”窗口上，按“回车”键后，这行语句会被立刻执行。 5、查看代码、查看对象；“查看对象”按钮；“查看代码”按钮 二、选择题

1.B 2.C 3.D 4.B 5.C 6.B 7.D 三、程序设计题 1.

Private Sub Command1_Click() Text1.Text = \欢迎使用VB！\End Sub

Private Sub Command2_Click() Text1.Text = \End Sub

Private Sub Command3_Click() End End Sub 2.

Private Sub Command1_Click()

Label1.Caption = \你好，张三！\ Command1.Enabled = False End Sub

Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub

Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 习题二

一、填空题 1. 0

2. “除数为零”错误 3. Long 4. False

5. Const PI = 3.14159 6. True 7. 4 8. 4

9. Dim Mystr As String*10 10. True

11. 1<=x And x<=5 二、程序设计题 1.

Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub

Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub

Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub

Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub

2.

Private Sub Command1_Click()

Label1.Caption = \百位数：\十位数：\\个位数：\End Sub 3.

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a + b

Label1.Caption = \ Text3.Text = c

End Sub

Private Sub Command2_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a - b

Label1.Caption = \ Text3.Text = c End Sub

Private Sub Command3_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a * b

Label1.Caption = \ Text3.Text = c End Sub

Private Sub Command4_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a / b

Label1.Caption = \ Text3.Text = c

End Sub

Private Sub Command5_Click() Text1.Text = \ Text2.Text = \ Text3.Text = \End Sub

Private Sub Command6_Click() End End Sub 4.

Private Sub Command1_Click()

Dim c As String

c = InputBox(\输入带区号的电话号码，“0571-86281517”：\

号为4为，号码为8位，如输入区比 MsgBox (\区号：\号码：\End Sub

二、程序填空 1．

（1）i >= 0 （2）i < iMin 2．

（1）i >= 0 （2）i < iMin 3．

Private Sub Command1_Click()

Dim str1 As String, str2 As String str1 = Text1.Text str2 = \

m = 0

Do While m < Len(str1) / 2

str2 = str2 + Mid(str1, m + 1, 1)

str2 = str2 + Mid(str1, Len(str1) - m, 1) m = m + 1 Loop

Form1.Print str2 End Sub 4．

Private Sub Command1_Click()

Dim str1 As String, str2 As String str1 = Text1.Text str2 = \

m = 0

Do While m < Len(str1) / 2

str2 = str2 + Mid(str1, m + 1, 1) str2 = str2 + Mid(str1, Len(str1) - m, 1) m = m + 1 Loop

Form1.Print str2 End Sub 5.

Private Sub Form_Click() Dim i As Integer Dim k As Single Dim p As Integer Dim s As Single p = 1 s = 0

For i = 1 To 100 k = p / i p = -p s = s + k Next i

Form1.Print \End Sub

三、程序设计 1.

Private Sub Form_Click()

Dim x As Single, y As Single x = InputBox(\ If x > 10 Then

y = Sqr(x) + Sin(x * 3.14 / 180) ElseIf x = 0 Then y = 0 Else

y = 2 * x ^ 3 + 6 End If Print y

End Sub 2.

Private Sub Form_Click()

Dim i As Integer, n As Integer, m As Integer, s As Integer n = InputBox(\

Randomize For i = 1 To n

m = Int(Rnd * 90) + 10 If m Mod 2 = 0 Then s = s + m Next i

Label1.Caption = s End Sub 3.

Private Sub Command1_Click()

Dim i As Integer, n As Integer, a As Integer, b As Integer, c As Integer For i = 1 To 100 n = InputBox(\ If n >= 85 Then a = a + 1

ElseIf n >= 60 Then b = b + 1

Else

c = c + 1 End If Next i

Label1.Caption = a Label2.Caption = a Label3.Caption = a End Sub 4.

Private Sub Command1_Click()

Dim i As Integer, n As Integer, s As Single s = 1

n = InputBox(\

For i = 1 To n

s = s + i / ((i + 1) * (i + 2)) Next i

Text1.Text = s End Sub 5.

Private Sub Form_Click()

Dim i As Integer, j As Integer, k As Integer For i = 1 To 9

For j = 0 To 9

For k = 0 To 9

If i ^ 3 + j ^ 3 + k ^ 3 = i * 100 + j * 10 + k Then Print i * 100 + j * 10 + k End If Next k, j, i End Sub

6.

Private Sub Form_Click()

Dim i As Integer, j As Integer Dim m As Integer, n As Integer Dim a As Integer, b As Integer For i = 1 To 99

For j = i + 1 To 100 m = i + j n = j - i

a = Sqr(m) b = Sqr(n)

If a ^ 2 = m And b ^ 2 = n Then

Print i, j End If Next j Next i End Sub 7.

Private Sub Form_Click()

Dim i As Integer, j As Integer, k As Integer For i = 0 To 9 For j = 0 To 12 k = 36 - i - j

If i * 4 + j * 3 + k / 2 = 36 Then Print i, j, k End If Next j Next i End Sub 8.

Private Sub Form_Click() Dim i As Integer, s As Single Do

i = i + 1

s = s + 1 / (i ^ 2) Loop Until 1 / (i ^ 2) < 10 ^ -5 s = 6 * s Print Sqr(s) End Sub

9.

Private Sub Form_Click()

Dim i As Integer, s As Single, p As Single s = 1 p = 1 Do

i = i + 1 p = p * i s = s + 1 / p Loop Until 1 / p < 10 ^ -5 Print s End Sub 10.

Private Sub Form_Click()

Dim i As Integer, j As Integer, s As Single For i = 1 To 50 For j = 1 To i s = s + j Next j Next i Print s End Sub

11.

Private Sub Form_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer m = InputBox(\

n = (m Mod 10) * 10 + m \\ 10 For i = 10 To 99

j = (i Mod 10) * 10 + i \\ 10 If i + m = j + n Then Print m, i Exit For End If Next i End Sub 习题四

二、程序填空

1.

Private Sub Form_Load() cmdEnd.Enabled = False End Sub

Private Sub cmdStart_Click()

Dim n As Integer, i As Integer, j As Integer, p As Integer Dim a(200) As String * 1, str1 As String, t As String str1 = Text1.Text n = Len(str1) For i = 1 To n

a(i) = Mid(str1, i, 1) Next i

For i = 1 To n - 1 p = i

For j = i + 1 To n

If a(p) > a(j) Then p = j Next j

If p <> i Then t = a(i): a(i) = a(p): a(p) = t

Next i

For i = 1 To n Print a(i); Next i

cmdEnd.Enabled = True cmdStart.Enabled = False End Sub

Private Sub cmdEnd_Click() End End Sub 2.

三、程序设计

1.

Private Sub Form_Click()

Dim x(10) As Integer, i As Integer

Dim Max As Integer, m As Integer, Min As Integer, n As Integer 'Max、m存最大值和最大值位置；Min、n存最小值和最小值位置

For i = 1 To 10

x(i) = InputBox(\请输入第\个数：\ Print x(i); '显示在窗体上 Next i

Print '显示换行 Max = x(1) Min = x(1) m = 1 n = 1

For i = 1 To 10

If Max < x(i) Then

Max = x(i)

m = i '记录最大值位置 End If

If Min > x(i) Then

Min = x(i)

n = i '记录最小值位置 End If

Next i

If m > 1 Then '如果最大元素不是第一个，则与第一个交换 x(m) = x(1) x(1) = Max End If

If n < 10 Then '如果最小元素不是第10个，则与第10个交换 x(n) = x(10) x(10) = Min End If

For i = 1 To 10 '在窗体上显示结果 Print x(i); Next i End Sub 2.

Private Sub Command1_Click()

Dim a(10) As Integer, b(10) As Integer, i As Integer '下面完成（1）： For i = 1 To 10

a(i) = InputBox(\请输入第\个数：\ Next i

'（1）完成，下面完成（2）： For i = 1 To 10

t = a(i) '取元素

While t > 0 '分解t的每一位，并加入到b(i)中

b(i) = b(i) + (t Mod 10) '取出t的个位数，加入b(i)中 t = t \\ 10 't缩小十倍，去掉原来的个位 Wend Next i

'（2）完成，下面完成（3）： For i = 1 To 10 Print a(i);

Next i Print

'（3）完成，下面完成（4）： For i = 1 To 10 Print b(i); Next i End Sub 3.

4.

Private Sub Form_Click()

Dim a() As Single, n As Integer, i As Integer Dim sum As Single, v As Single, s As Single n = InputBox(\请输入元素个数：\ ReDim a(n) For i = 1 To n

a(i) = InputBox(\请输入第\个数：\ Print a(i); '显示在窗体上 Next i

Print '显示换行 '求出v： For i = 1 To n sum = sum + a(i) Next i

v = sum / n '求出s： sum = 0

For i = 1 To 10

sum = sum + (a(i) - v) ^ 2 Next i s = Sqr(sum) / n '显示结果： Print v, s End Sub

习题五

三、程序设计

1. 2.

'功能：判断整数x是否素数，如果是返回True，否则返回False Function Prime(ByVal x As Integer) As Boolean Dim i As Integer

If x < 2 Then Exit Function '当x<2返回False

For i = 2 To Sqr(x)

If x Mod i = 0 Then Exit Function '如果x被i整除，说明x不是素数，立刻返回 Next i

Prime = True 'x是素数 End Function

Private Sub Form_Click() Dim i As Integer

For i = 1 To 100

If Prime(i) Then Print i; Next i End Sub

3.

'功能：在字符串S1中查找子串S2，返回找到的个数，未找到返回0

Function Find(S1 As String, S2 As String) As Integer

Dim i As Integer, j As Integer, L1 As Integer, L2 As Integer L1 = Len(S1) L2 = Len(S2)

For i = 1 To L1 - L2 + 1

If Mid(S1, i, 1) = Left(S2, 1) Then '如果S1中第i个字母与S2的首字母是否相同，进行下面的判断

For j = 2 To L2 '判断S1中第i+1个开始的字母序列与S2中第2个开始的字母序列是否相同

If Mid(S1, i + j - 1, 1) <> Mid(S2, j, 1) Then Exit For Next j

If j > L2 Then Find = Find + 1 '找到相同的子串，子串计数+1 End If Next i End Function

Private Sub Form_Click()

Dim S1 As String, S2 As String, n As Integer S1 = Input(\请输入一个字符串：\ S2 = Input(\请输入要查找的子串：\ n = Find(S1, S2)

If n > 0 Then

MsgBox \找到\个子串。\ Else

MsgBox \未找到。\ End If End Sub 习题九

三、程序填空题 1.

Private Sub Command1_Click() Dim str1 As String

Open \ Open \ Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop

Close #1, #2 Kill \End Sub

2.

Private Sub Command1_Click()

Dim s As String

Open \ Open \ Do While Not EOF(2) Line Input #2, s Print #1, s Loop Close #1, #2 End Sub

10学年第2学期试卷题型：

一、填空题（共10个空，每空1分，共10分） 二、是非题（共4小题，每小题1分，共4分）

三、程序阅读与填空（共22个空，每空3分，共66分）共有6个程序 四、程序编写（2小题，每小题10分，共20分）共有2个程序

试题来源：

1、课本附录3套试卷 2、实验报告 3、课本例题 4、课后习题

课本例题：

例3-2、3-3、3-4、3-5、3-7、3-9、3-10、3-11、3-12、3-14、3-15、3-16、3-17、3-18、3-19 掌握选择排序

掌握变量的作用范围 例5-3、例5-5

掌握列表框各属性和方法

例6-1、例6-4、例6-5、例6-7、例6-8 掌握CommonDialog的Show方法 例9-1、例9-3、例9-4

课后习题： 习题二填空题 习题三：

一：2、3、4、5、6、9、10 二：全部

三：1、2、3、4、5、7、8、9、10 习题四：

一：1、2、3、4、5 二：全部 三：全部

习题五： 一：1、2、4 二：全部 三：全部 习题六： 一：2、3、6 习题七： 一：全部 习题九： 三：1、2

本文来源：https://www.bwwdw.com/article/acjg.html