某同学编写了一段模仿Excel的Rank排位函数VB程序，运行界面如图。程序功能如下：程序运行后先自动生成1000个取值范围在[1,100]的随机数（保留两位小_刷题宝

题干

某同学编写了一段模仿 Excel 的 Rank 排位函数 VB 程序，运行界面如图。程序功能如下：程序运行后先自动生成 1000 个取值范围在 [1, 100]的随机数（保留两位小数）并显示在 List1 中，在 Text1 和 Text2 中输入排序范围的起始位置和结束位置，在 b(i)中存储 a(i) 在该范围中的排位，并输出排位到列表框 List2, 实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()
Randomize '生成 1000 个随机数 For i = 1 To 1000

a(i) = ((Rnd * 99 + 0.05) * 1000 \ 10) / 100 + 1 '产生随机数，保留二位小数
b(i) = 1 '初始排位为 1

List1.AddItem "a(" & i & ")=" & a(i) Next i
End Sub
Private Sub Command1_Click()
Dim ks As Integer, js As Integer ks = Val(Text1.Text)
js = Val(Text2.Text) For i = ks To js
For j = ks To js

If a(j) < a(j-1) Then b(i) = b(i) + 1
Next j
List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i
End Sub

上一题下一题 0.99难度填空题更新时间:2019-04-15 08:55:17

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

同类题1

编写 VB 程序，实现如下功能：在文本框 Text1 中输入十进制数，文本框 Text2 中输入待转换进制（范围 2～16），单击“转换”按钮 Command1，在列表框 List1 中输出该整数对应的进制转换结果，运行效果如下图所示。

（1）要修改窗体中各对象字体为粗体，可选中对象后在属性窗口中设置________________属性。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click
Const code = "0123456789ABCDEF" Dim s As String
Dim x As Long, r As Integer r = Val(Text2.Text)
If ①_____Then
x = Val(Text1.Text)
s = ""
Do While x > 0 y = x Mod r
x = x \ r
s =②___
Loop
List1.AddItem "(" & Text1.Text & ")10" & "=(" & s & ")" & r
Else
MsgBox "请重新输入数据" End If
End Sub
（3）重新运行程序，若在文本框 Text1 中输入“255”，文本框 Text2 中输入“8”，单击“转换” 按钮后，列表框 List1 中显示的内容是_____。

同类题2

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String, b As String
a = "up "
b ="look "+" "+a
Label1.Caption = b
End Sub
运行程序，单击命令按钮Command1后弹出如下图所示的出错信息提示，此时程序正执行的语句是（）

A．Dim a As String, b A s String	B．a = "up "
C．b = "look "+" "+a	D．Label1.Caption = b

同类题3

某VB程序段如下：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Boolean
a = (a + 1) * 2
b = a - 1
print a:print b
End Sub
程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）

同类题4

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If prime(i) Then ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If a(i) =" a(i" +1)+2 Then ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i)):学#科#网Z#X#X#K
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If x Mod i =" 0" Then
prime = True
Exit For
End If
Next i
End Function

同类题5

在VB中，下列表达式的值为5的是（）

相关知识点

算法软件操作