修改时间:2024-07-13 浏览次数:277 类型:期中考试
初中组各班的总得分通过在 H3单元格输入“=SUM(C3:G3)”,并将其自动填充至 H4:H11得到。现复制 H11单元格,粘贴到H13单元格,(选填:能 / 不能)正确计算高中组二 1班总得分。
Private Sub Command1_Click()
Dim zf As String, tmp As String
Dim s As String, i As Integer, ch As String
tmp = ""
s = ""
For i = 1 To Len(zf)
ch = Mid(zf, i, 1)
If ch >= "0" And ch <= "9" Then
ElseIf tmp <> "" Then
s = s + tmp + ","
tmp = ""
End If
Next i
Text2.Text = s
End Sub
"查找ASCII最大的字符"/ C .Form1.AddItem "查找ASCII最大的字符")
Const n = 40
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, max As Integer
s = Text1.Text
max = 0
For i = 1 To Len(s)
ch =
If Asc(ch) > max Then max = Asc(ch)
Next i
Label1.Caption = "最大ASCII码:" + + " 该字符为:" + Chr(max)
End Sub
Private Sub Form_Load() ’随机生成可见字符并显示在文本框Text1中
Randomize
For i = 1 To n
Text1.Text = Text1.Text +
Next i
End Sub
Const n = 15
Private Sub Command1_Click()
Dim a(1 To n) As Integer '数组a存放不同颜色袜子的数量,默认值为0
Dim s As String, ch As String
Dim c As Integer, i As Integer, t As Integer
List1.Clear
s = Text1.Text
t = 0 :c = 0 : i = 1
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
t = t * 10 + Val(ch)
Else
a(t) = ①
t = 0
End If
i = i + 1
Loop
For i = 1 To n
If ② Then List1.AddItem "落单袜子的颜色为" + Str(i)
c =
Next i
Label1.Caption = "能配对的袜子有" + Str(c) + "双"
End Sub
请回答下列问题:
① ②
试题篮