以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text_2中输出新数。 Private Sub Command1_Click() Dim x As Integer, y As Integer Dim i As Integer, j As Integer x=val(text1.text) i=...

题型：综合题题类：常考题难易度：普通

浙江省诸暨市牌头中学2017-2018学年高二下学期信息技术第一次月考试题

以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text_2中输出新数。

Private Sub Command1_Click()

Dim x As Integer, y As Integer

Dim i As Integer, j As Integer

x=val(text1.text)

i=x \ 10

_____________ ①

y=j*10+i

Text1.Text = y ②

End Sub

（1）、为了实现上述表达式的计算，①处应填写的是。

（2）、程序中②处的表达式有误，应更正为。

举一反三

Private Sub Command1_C1ick ( )

Dim a(0 to 5) As Integer

a(5)=Val(Text1.text)

For I=4 to 1 step -1

a(I)=a(I+1)/2

Next I

Text2.text=str(a(I))

End sub

在文本框Text1中输入“96”，单击命令按钮Command1后，文本框Text2中显示的内容是（）

算法分析：从A点到B点共有7个路口，即可以有一个7位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的7位二进制数，再去掉不满足的二进制数即可。

相关试卷