修改时间:2024-07-13 浏览次数:126 类型:期末考试
图a
图b
Private Sub Comand1_Click( )
Dim s As String, c As String
Dim t As Integer, I As Integer
Dim a(1 To 26)As Integer
s=Text1.Text
For i=1 to 26
a(i)=0
Next i
i=1
Do While i<=Len(s)
c=Mid(s, i, 1)
If ① Then
t=Asc(c)-96
Else
t=Asc(c)-64
End If
If a(t)=0 Then
a(t)=1
Else
②
End If
i=i+1
Loop
Label1.Caption=s
End Sub
① ②
实现上述功能的VB程序如下,请回答下列问题:
Const k=5
Dim a(1 To k * k)As Integer
Private Sub Form_Load( )
‘生成数组a并以矩阵形式显示在列表框list1中
End Sub
Private Sub Command1_Click()
Dim b(1 To k, k * k)As Integer
Dim n As Integer
Dim row As Integer, col As Integer
Dim s As String
s=“”
n=Val(Text1. Text)
For i=1 To k * k
row=(i-1)\k+1
①
If row=n Then
b(i)=a((col-1)*k+n)
ElseIf col=n Then
②
Else
b(i)=a(i)
End If
s=s+Str(b(i))
If ③ Then
List2. AddItem s
s=“”
End If
Next i
End Sub
① ② ③
试题篮