VisualBasic程序设计教程第版实验答案

zy = Label11.Caption Else

MsgBox \职业未选\提示\ End If

If Check1.Value Then ah = Label12.Caption Else ah = \ End If

If Check2.Value Then

ah = Label13.Caption + \ Else ah = ah + \ End If

If Check3.Value Then

ah = Label14.Caption + \

Else ah = ah + \ End If

If Check4.Value Then

ah = Label15.Caption + \ Else ah = ah + \ End If

Label3.Caption = \简历\姓名：\年龄：\& \性别：\学历：\职业：\爱好：\ End Sub

Private Sub Command2_Click() Text1.Text = \ Text2.Text = \ Label3.Caption = \ Option1.Value = False

Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False Option7.Value = False Option8.Value = False Check1.Value = False Check2.Value = False Check3.Value = False Check4.Value = False End Sub

实验4-1

提示：

（1）对于特殊字符\\特殊符号\命令来实现。

（2）用String(n, \\

（3）通过循环结构确定显示的起始位Tab(20-2*i)，显示有规律的子串，\宽约为2。

图2.4.1 实验4 .1运行界面

Private Sub Form_Click() For i = 1 To 9

Print Tab(20 - 2 * i); String(2 * i - 1, \★\ Next i End Sub

实验4-2

图2.4.2 实验4.2运行界面

提示：利用Chr函数将字母编码值转换成字母。 Private Sub Form_Click() For i = 1 To 10 Step 1

Print Tab(i); String((20 - 2 * i), Chr(64 + i)) Next i End Sub

实验4-3

求s=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+4+…+n)。

要求：

①用For单循环求前30项和。

②用Until求多项式和，直到和大于5000为止。

图2.4.3 实验4.3运行界面

Private Sub Command1_Click()

Dim s As Double, x As Double, i As Integer, j As Integer