1、vb操作题代码:Private Sub Command1_Click()If Option1.Value = True Then Label1 = 我的母语是汉语End IfIf Option2.Value = True Then Label1 = 我的母语是英语End IfIf Option3.Value = True Then Label1 = 我的母语是日语End IfEnd Sub代码:Private Sub Command1_Click()Form1.Print showEnd SubPrivate Sub Form_Click()Form1.ClsEnd Sub代码:Private
2、 Sub Command1_Click()If Check1.Value = 0 Then If Check2.Value = 0 Then Text1.Text = 我选的课程是 Else Text1.Text = 我选的课程是高等数学 End IfEnd IfIf Check1.Value = 1 Then If Check2.Value = 0 Then Text1.Text = 我选的课程是物理 Else Text1.Text = 我选的课程是物理和高等数学 End IfEnd IfEnd Sub代码:Dim arrN(10) As Integer 注意这句是在通用那里的(温馨提示:红
3、色是需要我们自己填补的)Private Sub Command1_Click()Dim max, i As Integer max = arrN(1) For i = 2 To 10 If arrN(i) max Then max = arrN(i) End If Next iPrintPrint 最大值:; maxEnd SubPrivate Sub Command2_Click()Dim min, i As Integer min = arrN(1) For i = 2 To 10 If arrN(i) = 48 And Asc(ch) = 65 And Asc(ch) = 97 And
4、Asc(ch) = 122 Then lp = lp + 1 Else others = others + 1 End If Next iText1.Text = cpText2.Text = lpText3.Text = numberText4.Text = othersPrint #2, 大写字符个数:; cp & 小写字符个数:; lp & 数字:; number & 其他字符:; othersClose #2 Command1.Caption = 完成 Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click()EndEnd Sub