loadingzy = 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