小明设计了一个算法，来实现10个11-99之间随机数字的升序排序，并去掉重复数字。程序设计思想如下：a(1)~a(10)用于存放原数据，b(1)~b(num)用-组卷网

题型：操作题难度：0.65 引用次数：21 题号：13772319

小明设计了一个算法，来实现10个11-99之间随机数字的升序排序，并去掉重复数字。程序设计思想如下：a(1)~a(10) 用于存放原数据，b(1)~b(num) 用于存放排序完成后的结果，对于每个待排数字a(i)，先在b数组中查询是否存在，如不存在，则放入到b数组中。程序运行界面如下图所示。

VB代码实现如下：
Const n = 10
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Form_Load()

'随机生产10个11-99之间的数字,并依次存储在数组a中,代码略

End Sub
Private Sub Command1_Click()

Dim num As Integer, L As Integer, R As Integer, i As Integer

Dim m As Integer, f As Boolean

num = 1: b(1) = a(1)

For i = 2 To n

b(num + 1) = a(i) + 1

f = False

For j = 1 To num + 1

If a(i) < b(j) Then

Exit For

ElseIf a(i) = b(j) Then

①

End If

Next j

If Not f Then

For k =

b(k + 1) = b(k)

Next k

②

num = num + 1

End If

Next i

'最终将数组b的排序结果输出到文本框中,代码略

End Sub
根据如上代码，请回答下列问题：
（1）若要清除文本框Text1中的内容，能实现该功能的语句是___________
（单选，填字母：A.Text1.clear / B.Text1.Text=“”/ C.Text1.Caption=“”）
（2）请在划线处填上合适的代码。
__________________
__________________
（3）程序中加框处代码有错，请改正。
改正：___________________

20-21高二下·浙江绍兴·期末查看更多[1]

更新时间：2021-08-22 20:44:55 |

纠错收藏下载加入试卷

【知识点】 VB程序的调试

相似题推荐

操作题 | 适中 (0.65)

名校

【推荐1】VB程序设计。某微群采用问题验证的加入方式，如下图所示：

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如下图所示，

程序界面和代码编辑窗口如下图所示。

（1）上图所示流程图中采用的算法为____________（填：解析算法 / 枚举算法）。
（2）在上图程序界面所示窗体中，创建label2对象的方法正确的是___________（填字母）。

A．双击工具箱中的“”控件

B．单击工具箱中的“”控件，然后在窗体中按住鼠标左键拖曳

（3）在上图程序界面窗体的标题中显示 “寻找验证问题的答案” 字样，是通过修改该窗体对象的 _________（填：Font / Caption / Top）属性的值实现的。
（4）上图代码编辑窗口中的VB程序代码在___________（填：加载窗体 / 单击Label2 / 单击Command1）对象时被驱动执行。
（5）徐明在代码编辑窗口中，输入“Label2.”后出现如下图所示的信息, 其中的“BackColor”是Label2的_________（填：事件名 / 对象名 / 属性名）。

（6）下图中VB程序划线处应填写的代码为_____________。

（7）运行上图中VB程序后，弹出下图所示的出错信息提示，此时程序正执行的语句是 ___________（填字母），改正该错误应修改的语句是____________（填字母）。

A．Dim k As Integer
B．For k = 211000 To 211999
C．Label2.Caption = Str(k)
（8）保存工程后，徐明发现结果文件夹中产生了yzwt.frm、yzwt.vbp、yzwt.vbw三个文件，其中窗体文件是__________。

2018-11-29更新 | 32次组卷

相似题纠错收藏详情加入试卷

操作题 | 适中 (0.64)

【推荐2】打开并修改考生文件夹下“VB”文件夹中“test.vbp”，使其具有下列功能：在文本框Ｔext1中输入姓名，在性别栏中选择相应的性别，单击“OK”按钮（Command1）后，在标签Ｌabel2上显示“我的名字叫＊＊我＊，是个男孩（女孩）”。
VB界面如图所示：

（1）参照效果图，完善界面，并在属性窗口中完成对添加对象的caption属性的设置。
（2）为命令按钮选择合适的事件过程，该事件过程的代码可以从“VB”文件夹中的“code.txt”中得到。
（3）调试并运行程序时有错误提示，修改相关的事件过程代码，使程序实现上述功能。
Private Sub Command1_Click()
Dim name As String, xb As String
name = Text1.Text
If Option1.Value =" True" Then
xb = "男孩"
Else
xb = "女孩"
Label2.Caption = "我叫" + name + "，我是个" + xb
End Sub
（4）生成可执行程序“test.exe”,保存到“VB”文件夹下。保存窗体文件与工程文件。

2016-11-25更新 | 103次组卷

相似题纠错收藏详情加入试卷

操作题 | 适中 (0.65)

名校

【推荐3】（佩奇爱数学）小猪佩奇最近特别喜欢数学，他发现一个数字“54748”非常神奇，它各位数字的5次方之和等于该数本身，即

，佩奇不知道类似的数字还有几个，于是他编写了一个VB程序，希望找出所有的这类数字。VB代码如下：

Private Sub wjxs_Click()
Dim i As Integer                    '①
Dim a As Integer, b As Integer
Dim c As Integer, d As Integer
Dim e As Integer
Dim n As Integer                    '②
List1.clear
For i = 10000 To 99999             '③
     a = i \ 10000                           '万位数字
     b = i \ 1000 Mod 10               '千位数字
     c = i \ 100 Mod 10                 '百位数字
     d = i \ 10 Mod 10                  '十位数字
     e = i Mod 10                            '个位数字
     If a ^ 5 + b ^ 5 + c ^ 5 + d ^ 5 + e ^ 5 = i Then   '④
          n = n + 1
          List1.AddItem Str(i)       '在列表框中输出
     End If
Next i
Label1.Caption = "共有" + Str(n) + "个五角星数"
End Sub
（1）代码“List1.Clear”中的“Clear”是_______。（A.对象名 B.属性名 C.方法名）
（2）根据代码，“查找”按钮的控件名称是_______。
（3）运行程序，出现如下错误，需要修改下列_______处的语句。
A. ①               B. ②               C. ③               D.④

（4）与语句“c = i \ 100 Mod 10”功能相同的代码是_______。
A. c = (i Mod 1000)\100
B. c = (i-10000*a-1000*b)/100
C. c = (i Mod 1000-10*d-e)\100

2020-11-25更新 | 32次组卷

相似题纠错收藏详情加入试卷