编写VB程序，实现如下功能:在文本框Text1中输入一个正整数，单击“求数根”按钮Command1，在Text2中输出该正整数的树根（数根：若一个正整数X的各位数字之和是一位数，那么这个数就是X的数根，否则再把这个数的各位数字相加，如此反复直到得到一位数为止。例如156的各位数字相加1+5+6=12，12的各位数字相加1+2=3，则156的数根是3）。程序运行界面如图1所示。图1 图2

0 返回首页

1. 编写VB程序，实现如下功能:在文本框Text1中输入一个正整数，单击“求数根”按钮Command1，在Text2中输出该正整数的树根（数根：若一个正整数X的各位数字之和是一位数，那么这个数就是X的数根，否则再把这个数的各位数字相加，如此反复直到得到一位数为止。例如156的各位数字相加1+5+6=12，12的各位数字相加1+2=3，则156的数根是3）。程序运行界面如图1所示。

图1

图2

(1) 如图2所示，在窗体Form1的属性窗口中，若修改“3”处的内容为“求数根”，则（填：1/2/4,多选）处会随之改变。

(2) 实现上述功能的VB程序如下，请在划线处填上合适的代码。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer

a = Val(Text1.Text)

s = a

Do While s >= 10

a =

s = 0

Do While a > 0

b = a Mod 10

s = s + b

a =

Loop

Text2.Text = Str(s)

End Sub

【考点】

解析算法及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题困难

1. 【加试题】某程序功能如下：数组a中存放了n*n个两位随机正整数，按n行n列在列表框List1 中显示（即第一行自左向右依次显示a(1)～a(n)，第二行自左向右依次显示a(n+1) ～a(2*n)，……）。按（行号，列号）的形式在文本框Text1 中输入某矩形区域的左上角位置(x1,y1)，在文本框Text2 中输入右下角位置(x2,y2)，单击“水平翻转”按钮Command1，对以(x1,y1)和(x2,y2)为对角顶点的矩形区域中的数据进行水平翻转，并将变换后的n*n个数据保存到数组b中，最后在列表框list2 中按照List1的格式显示数组b中的数据。程序运行界面如图所示。

(1) 对于有8*8个元素构成的数组a，如果输入左上角位置是（2，3），右下角位置是（7，5），水平翻转后，则元素a(27)的值在新数组保存在元素b()（填写下标）中。

(2) 依据上述描述设计的VB 程序如下，请在划线处填入合适代码。

Const n = 6

Dim a(1 To n ^ 2) As Integer, b(1 To n ^ 2) As Integer

Private Sub Form_Load()

'产生n*n个两位随机正整数，保存数组a，显示在List1中，代码略。

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, xy(1 To 4) As Integer

Dim s As String, tmp As String, c As String

s = Text1.Text + "," + Text2.Text + ","

tmp = "": j = 0

For i = 1 To Len(s)

c = Mid(s, i, 1)

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

tmp = tmp + c

Else

j = j + 1

tmp = ""

End If

Next i

For i = 1 To n

For j = 1 To n

If i>= xy(1) And i<= xy(3) And j >= xy(2) And j <= xy(4) Then

b((i - 1) * n + j) =

Else

b((i - 1) * n + j) = a((i - 1) * n + j)

End If

Next j

Next i

List2.Clear: c = ""

For i = 1 To n * n

c = c + Str(b(i))

If Then

List2.AddItem c

c = ""

End If

Next i

End Sub

综合题困难

2. 两个10进制大整数相加可以用数组的方法逐位相加来实现，小王同学制作了如图的VB程序，以实现求2个50位以内的10进制整数的和。

(1) 根据程序代码，该事件过程名为。

(2) 把代码补充完整。

Private Sub Command1_Click()

Dim a(1 To 51) As Integer, b(1 To 51) As Integer, c(1 To 51) As Integer Dim lens1 As String, lens2 As String

lens1 = Len(Text1.Text) ：lens2 = Len(Text2.Text)

For i = Len(Text1.Text) To 1 Step -1 ‘读取数据，逐位保存在数组中

a(i) = Mid(Text1.Text, lens1 - i + 1, 1) Next i

For i = Len(Text2.Text) To 1 Step -1

b(i) = Mid(Text2.Text, lens2 - i + 1, 1) Next i

For i = 1 To 51 ‘从个位到高位逐位求和

c(i) =

If c(i) > 9 Then

c(i) = c(i) - 10

c(i + 1)=

End If Next i

f = False '从左到右输出第一个不为 0 的元素开始从高位到低位输出和

For i = 51 To 1 Step -1

If c(i) <> 0 Then f = True

If f Then Text3.Text = Text3.Text & c(i) Next i

End Sub

(3) 图中，为了使Text1和Text2文本框在Form1界面上能够左对齐，需要更改Text1的Left属性，则可以在Form_Load（）中添加代码Text1.Left=

综合题困难

3. 目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关键的信息。现编写 VB.程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮，将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

(1) 在设计程序界面时，图2中控件（填数字）未在程序窗体中使用。

(2) 请根据题意将下列程序补充完整

Private Sub Command1_Click()

Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text

msg = msg + "/" '标记字符串结束符

tmp = "" s = ""

flag = True

For i = 1 To Len(msg)

c = Mid(msg, i, 1)

If ① Then flag = False

tmp = tmp + c

ElseIf flag = False Then s = s + tmp + ","

tmp = ""

②

End If

Next i

Text2.Text = s

End Sub

(3) 若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为。

综合题困难