某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生，只输出学号排在_刷题宝

题干

某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生，只输出学号排在前面的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩。实现上述功能的VB代码如下，请补全代码。
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max =    ①       （1分）
For i =" 2" To n
if     ②     (2分)
Next i
Text1.Text = "成绩最高分是：" + Str(max)
End Sub
(1)程序中①画线处应填入    。
(2)程序中②画线处应填入    。

上一题下一题 0.99难度填空题更新时间:2017-02-17 10:12:41

答案(点此获取答案解析）

同类题1

Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（）

同类题2

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是 ( )

同类题3

某英文字符加密算法，对明文中的每个字符进行下列加密处理：
1）将该字符 ASCII 码转换成对应的 2 位 16 进制数；2）将产生的 16 进制数互换位置3）步骤 2 产生的 16 进制数即为明文加密后的密文字符根据上述加密算法，小明编写了一个解密程序，界面如图。

（1）如果明文为 24，那么密文是_____
（2）请在横线处填上合适的代码
Dim s as string
Private Sub Command1_Click()
Dim d as string,d1 as string,d2 as string
Dim c as integer,c1 as integer,c2 as integer
Dim ans as string,i as integer
‘读取密文，显示在 text1，并存储在 s 中，代码略
Ans=””
For i = 1 To len(s) step 2
d1 = Mid(s, i, 1) : d2 = Mid(s, i+1, 1)
if d1>=”A” then______________
else
c1=val(d1)

c2=val(d2) : c=____________

d=chr(c) : ans=_________
Next i
Text2.Text = ans
End Sub

同类题4

素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如图 a 所示。

(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 Then flag = False
End If
i = i + 2
Loop
If ____________Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是_____(单选，填字母）。

A． n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

同类题5

（加试题）有如下VB程序段：
a(1)=1
For i=2 To 6
Randomize
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2=1 Then
a(i)=a(i)\2+1
EIse
a(i)=a(i)/2
End If
Next i
执行程序后，a数组各元素可能是

A．1 3 4 6 7 9

B．1 2 0 3 5 6

C．1 2 3 4 5 4

D．1 3 4 5 1 1

相关知识点