（加试题）有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：排序前783064394948321832排序后394983_刷题宝

题干

（加试题）有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

实现上述功能的VB程序如下，但加框处代码有误，请改正。
Const n = 10
Dim d(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
'读取一组正整数，存储在数组d中，代码略
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then
If d(j) > d(i) Then '(1)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Else '(2)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
'依次输出排序后的数据，代码略
End Sub

上一题下一题 0.99难度填空题更新时间:2019-04-11 09:39:37

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

同类题1

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

(1)在设计程序界面时，应使用上方右图所示“控件工具箱”中的______(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(①_____________)*2+1
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

同类题2

某算法部分流程图如图所示，执行这部分流程后，变量 a 和b 的值分别为（）

同类题3

（加试题）某一条形码是由13位数字组成的编码，其末位是校验码。条形码校验的方法如下：
①除校验码之外，求其余12位编码中的奇数、偶数的数字之和；
②将偶数的数字之和乘以3，加上奇数的数字之和；
③取第②步得到结果的个位数字，用10减去该数字，将得到的结果存入变量m；
④若m的值为10，则将m的值修改为0，否则不变；
⑤若m和校验码相等则输出“校验码正确！”，否则输出“校验码错误！”。
现编写一个VB程序，实现如下功能:在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, x As Integer
Dim n As Integer , js As Integer, os As Integer, m As Integer
Js=0: Os=0
s = Text1.Text
n = Log(s)     改正:_______________①
If n <> 13 Then
Label1.Caption = "条形码位数错误!":学#科#网Z#X#X#K
Else
For i = 1 To 12
x = Val(Mid(s, i + 1, 1))     改正:______________②
If x Mod 2 <> 0 Then
js = js + x
Else
os = os + x
End If
Next i
m = os * 3 + js
m = 10 - m Mod 10
If m = 10 Then m = 0
If m=Val(Mid(s,n,1)) Then
Label1.Caption = "校验码正确!"
Else
Label1.Caption = "校验码错误!"
End If
End If
End Sub

同类题4

完成以下 VB 程序代码
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。

同类题5

有如下VB程序段
m=a(1)
For t=2 to 15 step 2
If a(t) > m then m=a(t)
Next t
该程序段执行后，变量t的值是（）

相关知识点