输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。现要求编写VB程_刷题宝

题干

输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。

①__________________②___________________
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a =" x" \ 100
b = (x \ 10) \ 10 ' ①
c =" x" mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub

上一题下一题 0.99难度填空题更新时间:2016-01-08 02:15:58

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

同类题1

用户注册某APP时，密码有如下要求：至少为8个字符，并且必须含有数字和字母。小林编写了一个VB程序，对用户设定的密码进行合法性验证，如图所示。在文本框Text1中输入密码字符串s，单击“验证”按钮，在标签Label1中显示验证结果“符合要求”或“不符合要求”。

(1)实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmdjudge_Click()
Dim a1 As Integer, a2 As Integer, flag As Boolean
Dim s As String, c As String, i As Integer, n As Integer
a1=0：a2=0：flag=False
s = Text1.Text
i=1
___________
Do While i<= n And Not flag

c = Mid(s, i, l)

If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then

ElseIf c >= "0" And c <= "9" Then

End If

If _________ Then flag = True

i = i+1

Loop
If flag=True And n>=8 Then
Label1. Caption=“符合要求”
Else
Label1. Caption=“不符合要求”
End Sub
(2)代码“Private Sub Cmdjudge_Click()”中的“Cmdjudge”是__________．(单选，填字母：

A．过程名 /

(3)运行该程序，在文本框Text1中输入“Wd6b$ksss”单击“统计”按钮后，语句c=Mid(s, i, 1)共执行了__________次。

同类题2

若字符串a是在字符串s的任意位置插入多个字符后构成的新字符串，则称字符串a为字符串 S的扩展字符串。判断扩展字符串的VB程序界面如图所示，在文本框Text1和Text2 中分别输入字符串s和a，单击“判断”按钮Command1，如果字符串a为字符串S的扩展字符串，则在文本框Text3中输出“是”和插入字符的内容，否则输出“否”。
①结合题意，窗体中属于TextBox类的对象共有_________个（填数字）。
②实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Commandl_Click()
Dim s As String，c As String，ss As String，cc As String
Dim i As Integer，As Integer，res As String
s= Text1.Text
c = Text2.Text
i=l：j=l：res =“”
Do While i <= Len(s)

ss = Mid(s, i, l)

cc = Mid(c, j, l)

If ss = cc Then i = i + l Else res = res + cc

①________

If j > Len (c) Then Exit Do ‘Exit Do 执行退出循环

Loop
If ②_________ Then

Text3.Text ="是，增加了：" + res + Mid( c，j，Len(c) -j+l)

Text3.Text = "否"

End If
End Sub
（3）运行该程序，输入如第l4题图中所示的数据，程序执行结束时，变量j的值是____

同类题3

有三个杯子，其中A杯盛水，B杯盛醋，C杯为空杯。要求将A杯中的水倒入B杯，B杯中的醋倒入A杯，则解决这个问题的算法是（）。
①B!A ②A!B ③C!B ④B!C ⑤A!C ⑥C!A

A．①②③	B．③②①
C．③⑤④	D．⑥②④

同类题4

使用枚举法解决问题，在列举问题的可能解的过程中（）

A．可以遗漏，但不应重复

B．不能遗漏，也不应重复。

C．可以重复，但不应遗漏。

D．可以遗漏，也可以重复。

同类题5

星期天，小杰来到动物园游玩，园内共有 N 个景点，每个景点都有一个标号，标号为 1 至 N｡现在只知道每个景点均有一条路连接下一个景点｡小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点｡
例如，共有 N=5 个景点，每个景点连接的下一个景点分别是2，4，5，5，2，

景点号	1	2	3	4	5
下一景点号	2	4	5	5	2

则他可以从 2 号景点出发，最多可以游玩 2号､4号､5号三个景点｡

程序代码如下：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer , d(1 To 100) As Integer '数组 a 存放下一景点号
Dim jd As String, m As String,c As Integer,I As Integer
Dim s As Integer, p As Integer,k As Integer,ans As Integer
jd=Text1. Text+,
s=0 : c=0
For i=1 To Len(jd)
m=Mid(jd,i,1)
If m<>, Then
s=s∗10+Val(m)
Else
c=c+1 :a(c)=s : s=0    '含义
End If
Next i
ans=0:k=0
For i=1 To c    '枚举游览起点
For k=1 To c
d(k)=0
Next k
If d(i)=0 Then
p=i
Do While p<=c
If d(p)=0 Then
k=k+1 :d(p)=k
Else
y=    ①  '填空
If y>ans Then ans=y
k=0
Exit Do
End If

'改错
Loop
End If
Next i
Text2. Text=Str(ans)
End Sub
（1）若要实现显示“景点连接情况：”的 Text1 在程序运行时默认为空，则需要将 Text1 的_________________属性设置为空｡
（2）若有 7 个景点，且每个景点的连接情况为 6，3，7，2，7，5，4，那么小杰最多可以游玩的景点数是_________________｡
（3）程序代码中，有下划线的语句“a（c）= s”代表的含义为___________________________｡
（4）程序代码中，在①处填空：y=_____________________｡
（5）程序代码中，加框处代码有错，请改正：__________________________________｡

相关知识点