二级VB上机40套答案

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