（加试题）对n个互不相同的整数（整数的最大值不超过m）进行排序，排序要求如下：①奇数在前，偶数在后；②奇数升序排序；③偶数降序排序。小刘用VB编写了实现上述功能

题干

（加试题）对 n 个互不相同的整数（整数的最大值不超过 m）进行排序，排序要求如下：①奇数在前，偶数在后；②奇数升序排序；③偶数降序排序。小刘用 VB 编写了实现上述功能的程序。程序运行时，自动产生 n 个不同的随机数存储在数组 a 中，并在列表框 List1 中显示。单击按钮 Command1 后，按要求在列表框 List2 中输出排序后的结果。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 15
Const m = 100 '整数的最大值
Dim a(1 To n) As Integer
Private Sub Form_Load
'本过程产生 n 个不同随机数存储在数组 a 中，并在列表框 List1 中显示
End Sub
Private Sub Command1_Click Dim i As Integer
Dim flag(1 To m) As Boolean 'flag(i) = True 代表数组 a 中存在值为 i 的元素
For i = 1 To m flag(i) = False
Next i
For i = 1 To n
flag(i) = True
①________
Next i
For i = 1 To m-1 Step 2
If flag(i) Then List2.AddItem Str(i) Next i
For i =2 To m
②________
If flag(i) Then List2.AddItem Str(i) Next i
End Sub

上一题下一题 0.99难度填空题更新时间:2019-03-30 05:21:34

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

同类题2

请统计某个给定范围L, R的所有整数中，数字2出现的次数。比如给定范围为2, 22，数字2在数2 中出现了1次，在数12中出现1次，在数20中出现1次，在数21中出现1次，在数22中出现2次，所以数字2 在该范围内一共出现了6次。小明编写如下图所示VB应用程序，在文本框Text1中输入区间左边界，在文本框Text2中输入区间右边界，单击“统计数字”按钮Command1后，在标签框Label1中输出给定区间内所有整数中出现“2”的次数。

（1）要使程序运行时，窗体Form1标题显示“统计数字”，则需在Form_Load事件过程中添加语句________
（单选，填字母：

A．Form1.Text="统计数字"/

B．Form1.Caption="统计数字"/

C．Form1.AddItem "统计数字"）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim left As Integer, right As Integer, s As String
Dim i As Integer, j As Integer, k As Integer, ch As String left = Val(Text1.Text)
right = Val(Text2.Text)
s = ""
k = 0
①________
Do While i <= right
s = s + Str(i)
i = i + 1
Loop
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "2" Then ②_____
Next i
Label1.Caption = Str(left) + "到" + Str(right) + "之间出现2的次数为" + Str(k) End Sub
（3）若在文本框Text1中输入300，在Text2中输入400，单击“统计数字”按钮后，标签Label1中显示的内容是________。

题干

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

同类题1

同类题2

同类题3

同类题4

同类题5