修改时间：2024-07-13 浏览次数：180 类型：期末考试
Dim s As String, ch As String
Dim ansAs String, i As Integer
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "A" And ch <= "Z" Then
ch = Chr(asc(ch) + 3)
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(asc(ch) - 3)
End If
ans = ans + ch
Next i
Text2.Text = ans
运行时文本框Text1中输入“Tu5Mp4”，则文本框Text2中输出的内容是（ ）
k = 0: s = ""
For i = 1 To n
Next i
Text1.Text = s
方框中的代码由以下四部分组成：
①If a(i) = 0 Then k = k + 1
②If p = k Then s = s + Str(a(i - k))
③a(i - k) = a(i)
④p = k
代码顺序正确的是（ ）
请回答下列问题：
Const n = 10 ‘n 名学生
Dim a(1 To n) As Integer ‘存放身高
Dim b(1 To n) As String ‘存放性别
Private Sub Form_Load()
'读取身高和性别数据，分别存储在数组a和b中，代码略
For i = 1 To n
List1.AddItem b(i) + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer
Dim s As String
i = 1:
Do While i<j
For k = i To j
If Then
If b(i) = "女" Or a(i) > a(k) Then
s = b(k): b(k) = b(i): b(i) = s
t = a(k): a(k) = a(i): a(i) = t
End If
Else
If 
Then
s = b(k): b(k) = b(j): b(j) = s
t = a(k): a(k) = a(j): a(j) = t
End If
End If
Next k
If b(i) = "男" Then i = i + 1
If b(j) = "女" Then
Loop
For i = 1 To n
List2.AddItem b(i) + Str(a(i))
Next i
End Sub
编写程序实现如下功能：Text1输入7课成绩“,”分隔，单击“分析”按钮Command1后，在标签Label2上显示三门优势学科与总分，程序运行界面如图所示：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, sum As Integer
Dim s As String, ch As String, t As String, dm As String, xk As String
Dim a(1 To 7)As Integer, b(1 To 7)As Integer, c(1 To 7)As Integer
dm = "物化生政史地技"
s = Text1.Text
n = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "," Then
n = n + 1
a(n) = Val(t)
Else
t = t + ch
End If
Next i
For i = 1 To 7
b(i) = 1
Next i
For i = 1 To 6
For j = i + 1 To 7
If a(i) < a(j) Then
b(i) = b(i) + 1
Else
End If
Next j
Next i
For i = 1 To 7
Next i
xk = "你的优势科目为："
sum = 0
For i = 1 To 3
xk = xk + Mid(dm, c(i), 1)
sum = sum + a(c(i))
Next i
Label2.Caption = xk + ",三科总分：" + Str(sum)
End Sub
试题篮
