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

题型：填空题题类：模拟题难易度：普通

浙江省杭州市2015年高考信息技术模拟卷10

输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入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

举一反三

Visual Basic中窗体文件的扩展名为（）

数字之美：在数学中有一种规律数列，随着第一个因数末尾增加一个相邻自然数，积的末尾也增加一个相邻自然数。如1*8+1=9，12*8+2=98，123*84+3=987，……，这种数列可以组成完美的三角形结构，称为数字之美。这一规律用VB程序编写后，运行界面如图所示。

实现该功能的VB程序段如下：

Function space(x As Integer)As String ‘输出格式化，设置左侧的空格数量

Dim n As Integer

For n=9 To x Step-1

①

Next n

End Function

Private Sub Form_Load()

Dim t As Long，i As Integer，n As String

Dim a(1 To 9)As String

Dim b(1 To 9)As String

Const num=“987654321”

For i=1 To 9

t=t*10+i

a(i)=space(i)+CStr(t) ‘CStr函数的功能是将数值转为字符，转换时不会添加空格

②

n=n+a(i)+“*8+”+CStr(i)+“=”+b(i)+Chr(13) ‘Chr(13)实现换行处理

Next i

Label1．Caption=n

End Sub

“字符串合并”程序实现功能：在文本框Text1中输入字符串1，在文本框Text2中输入字符串2，单击“合并”按钮Command1，按如下规则依次从中取出各字符进行合并，合并后的结果显示在标签对象Label3中。

合并规则如下：

⑴当字符串1的长度大于字符串2的长度时，将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”，字符串2为“123”时，合并后的字符串为“a1b2c3def”。

⑵当字符串2的长度大于等于字符串1的长度时，将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”，字符串2为“12345”时，合并后的字符串为“12d3c4b5a”。

程序运行界面如图所示。

下列VB程序运行时，在文本框Text1中输入字符串“while”，在文本框Text2和Text3中分别输入2和5，单击命令按钮Command1后，在文本框Text4中显示的内容是{#blank#}1{#/blank#}。

Private Sub Command1_click ( )

Dim n As Integer , m As Integer , k As Integer

n = Len ( Text1．Text )

m = Val ( Text2．Text )

k = Val ( Text3．Text )

If m + k -1 > n Then

Text4．Text = Mid ( Text1．Text , 1 , m – 1 )

Else

Text4．Text = Mid ( Text1．Text , 1 , m–1 ) + Mid ( Text1．Text , m+k , n–m–k +1 )

End If

End Sub

下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以 11 的余数即为编号（其中若余数为 0，编号为 11），编号与字符对照表如下：

编号	1	2	3	4	5	6	7	8	9	10	11
字符	V	i	s	u	a	l	B	A	S	I	C

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	1
加密字符	s	i	u	V

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

以下程序输出的结果是（）。

Option Base 1

Private Sub Command1 Click()

Dim a%(3,3)

For i=1 To 3

For j=1 To 3

a(i,j)=i*j

Print a(i,j);〃〃;

Next j

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心