End Sub 2(2):
Private Sub Command1_Click()
If ch1.Value = 0 And ch2.Value = 0 Then Text1.Text = \我选的课是\
If ch1.Value = 1 And ch2.Value = 0 Then Text1.Text = \我选的课是\ If ch1.Value = 0 And ch2.Value = 1 Then Text1.Text = \我选的课是\
If ch1.Value = 1 And ch2.Value = 1 Then Text1.Text = \我选的课是\& ch1.Caption & ch2.Caption End Sub 3:
Private Sub C1_Click() Dim x As Integer
Open \ Input #1, x Close 1
Text1.Text = x End Sub
Private Sub C2_Click() Dim x As Integer x = Val(Text1.Text) Do
x = x + 1
If isprime(x) Then Text2.Text = x Exit Do End If Loop End Sub
Private Sub C3_Click()
Open \ Print #1, Text2.Text Close 1 End Sub 40 2(1):
Dim i As Integer, max As Integer, min As Integer Dim s As Long max = a(1) min = a(1)
For i = 2 To 100
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i) Next i
If List1.ListIndex = 0 Then s = max - min
ElseIf List1.ListIndex = 1 Then s = max + min Else
s = max * min End If
Text1.Text = s
2(2):1 true k a 3:
Private Sub Command1_Click() '考生应完成的程序 Dim m As String
Open \ m = Input(LOF(1), 1) Close 1
Text1.Text = m End Sub
Private Sub Command2_Click() '考生应完成的程序
Dim m As String, c As String Dim i As Integer m = Text1.Text For i = 1 To Len(m) c = Mid(m, i, 1) If isletter(c) Then If i Mod 2 = 1 Then If c = \
Mid(m, i, 1) = \ ElseIf c = \ Mid(m, i, 1) = \ Else
Mid(m, i, 1) = Chr(Asc(c) + 1) End If Else
If c = \
Mid(m, i, 1) = \ ElseIf c = \ Mid(m, i, 1) = \ Else
Mid(m, i, 1) = Chr(Asc(c) - 1) End If End If End If Next i
Text2.Text = m End Sub
