下列程序的功能是：随机产生10个1—100之间的正整数，按从小到大排序并输出。为了实现这一目标，程序中划线处应填入的合适语句是：①_______________刷题宝

题干

下列程序的功能是：随机产生10个1—100之间的正整数，按从小到大排序并输出。为了实现这一目标，程序中划线处应填入的合适语句是：
①______________ _
②__________ _____
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a(1 to 10) As Integer
For i="1" to 10
_____①_______
Next i
For i="1" to n-1
For j="i+1" to n
If ____②____ Then
k=a(i):a(i)=a(j):a(j)=k
End If
Next j
Next i
For i="1" To n
Print a(i)
Next i

上一题下一题 0.99难度填空题更新时间:2015-08-28 06:36:24

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

同类题1

小伟假期同爸爸一起去书店，他选中了七本书，书的总价为175元。小伟爸爸的钱包里有5元8张，10元10张，20元6张，还有一元硬币20个，现在小伟怎么样才能搭配出175元钱买到这七本书,其中,每种货币必须至少要一张（个），请问有几种方法？

Private Sub Command1_click()
Dim x, y, z, m As Integer
Dim c As Integer
c = 0
For x =" 1" To 20
For y =" 1" To 8
For z =" 1" To 10
For m =" 1" To 6
If Then

List1.AddItem "第" + Str(c) + "方法:" + Str(x) + Str(y) + Str(z) + Str(m)
End If
Next m
Next z
Next y
Next x
End Sub

同类题2

下列VB程序运行时，单击命令按钮command1后，在列表框 list1 中输出的是_______________。
Private Sub Command1_Click()
Dim I as integer
For i=1 to 10 step 2
If i>=5 then
List1.additem str(i-3)
Else
List1.additem str(i)
Next i
End Sub

同类题3

人们常使用计算机程序解决一些实际问题。下面程序可以找出能被2、3、5除，余数为1的最小的4个正整数。（注：VB中不区分大小写）请分析程序回答问题。
Private Sub Command1_Click（ 1 ）
Dim CountN%, n%
CountN=0
N=1
Do
N=n+1
If n Mod 2=1 And n Mod 3=1 And n Mod 5=1 Then
Print n
CountN=CountN+1
End If
Loop___2___①___3___
End Sub
【小题1】利用计算机编程解决问题的过程中，需要使用一种程序设计语言来实现算法，这个过程叫做(　　)

A．设计程序

B．测试程序

C．运行程序

D．编写程序

【小题2】VB中保存工程文件的文件扩展名为(　　)

【小题3】程序中的If语句一般在流程图中用( )表示

A．平行四边形

【小题4】变量CountN的数据类型定义为（）

【小题5】变量CountN的作用是（）

B．求平均值

C．求最大值

【小题6】所用到的表示循环的标志性语句是（）

A．Dim……End If

C．Dim……Loop

D．Do……End If

【小题7】在这个循环中，CountN=CountN+1语句被执行（）

【小题8】①处的语句应该是（）

A．Until CountN =2	B．Until CountN =4
C．Until Countn =2	D．Until Countn =4

【小题9】这段程序的输出结果是(　　)

【小题10】VB语言中，下列合法的变量名是（）

【小题11】下列控件中可用于接收用户输入文本，又可用于显示文本的是（）

A．Label控件

B．TextBox控件

C．CommandButton控件

D．Timer控件

【小题12】VB中，下列哪一函数作用是将数值转化成字符串（）

【小题13】下列（）算法就是一种直接或者间接地调用自身的算法

A．穷举算法

B．排序算法

C．递归算法

D．解析算法

【小题14】程序中Command1控件响应的事件是（）

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题15】在VB中，“20”+“ 19”的运算结果是（）

C．“20+19”

同类题4

某VB程序的一个事件过程如下：
Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i="1" To 10
j="Int(Rnd*6)+1"
a(j)=a(j)+1
Next i
For i="1" To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是( )

A．j=Int(Rnd*6)+1	B．a(j)=a(j)+1
C．s=Str(a(i))	D．List1.AddItem s

同类题5

算法设计与程序实现
换钱问题：
要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换法如下：
5元：3张
2元：38张
1元：9张
求出所有的换钱方案。
（算法设计）
x表示5元的张数：1≦x≦20；
y表示2元的张数：1≦y≦50；
z表示1元的张数：1≦z≦100。
（参考程序）
Dim x AsInteger
Dim y AsInteger
Dim z As Integer
For x=1 To20
For y=1To 50
Forz=1 To 100
If ______________Then
Print x；y；z ’x y z 之间以分号分隔
End If
Nextz
Next y
Next x
根据上述回答下列问题：
（1）本题采用的算法是_____________（填：解析法/枚举法/排序法/递归法）。
（2）程序代码中空白处应填写的条件是_______________（填写字母：A/B/C/D）。
A 5x + 2y + z=100 Or x+ y + z = 50
B 5x + 2y + z=100 And x + y + z = 50
C 5*x + 2*y + z=100 Or x + y + z = 50
D 5*x + 2*y + z=100 And x + y + z = 50

相关知识点