修改时间:2024-07-13 浏览次数:144 类型:期中考试
学号 |
姓名 |
性别 |
出生年份 |
户籍所在地 |
注册日期 |
是否住校 |
201802001 |
张立 |
男 |
2003 |
杭州市江干区 |
2018/8/31 |
是 |
201901001 |
李红 |
女 |
2004 |
杭州市西湖区 |
2019/9/1 |
否 |
… |
… |
… |
… |
… |
… |
… |
下列关于该学生管理信息系统的描述,错误的是 ( )
key=Val(Text1.Text)
s=“ ”
i = 1 : j = 10
Do While i <= j
m =(i+j)\2
s = s+ Str(a(m))
If a(m)> key Then j = m -1 Else i = m +1
Loop
Text2.Text = s
数组元素a(1)到a(10)的值依次为“2,3,5,8,9,10,13,17,19,20”。在文本框Text1中输入待查找的数,执行该程序段,则文本框text2中显示的内容可能的是 ( )
图a
图 b
Private Function bw(x As Integer, y As String) As String
'函数bw功能:若二进制位数不足,通过在前面添"0"使得位数为4的倍数
Dim r As Integer, i As Integer
r = x Mod 4
If r <> 0 Then
For i = 1 To 4 - r
y = "0" + y
Next i
x = Len(y)
End If
bw=
End Function
Private Sub Command1_Click()
Dim m As String, n As Integer, i As Integer, a As Integer
Dim s As Integer, s1 As String, j As Integer
m = Text1.Text
n = Len(m)
Text2.Text = ""
m = ’调整 m 的位数为 4 的倍数
For i = 1 To n - 3 Step 4
s = 0
For j = i To i + 3
a = Val(Mid(m, j, 1))
s =
Next j
If s >= 10 Then
s1 = Chr(Asc("A") + s - 10)
Else
s1 = CStr(s) '函数 CStr 类似于 Str,但无前导空格
End If
Text2.Text = Text2.Text + s1
Next i
End Sub
请回答下列问题:
Const n = 6
Dim a(1 To n * n) As Integer
Private Sub Form_Load() '产生 n * n 个数组元素,每行按 n 个数显示在 list1 中
For i = 1 To n * n
a(i) = Int(Rnd * 90) + 10
s = s + Str(a(i))
If ① Then
List1.AddItem s
s = ""
End If
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer, s As String
For i = 1 To n * n
k = i
For j = k + n To ②
If a(k) > a(j) Then k = j
Next j
If Then t = a(k): a(k) = a(i): a(i) = t
Next i
'将排序后数组 a 的元素,按每行 n 个数显示在 list2 中,代码略
End Sub
① ②
试题篮