在VB的算术运算中，最大的实数类型double有效位数也只有15位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框Text1_刷题宝

题干

在 VB 的算术运算中，最大的实数类型 double 有效位数也只有 15 位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框 Text1 中输入被除数（正整数） ,在文本框 Text2 中输入除数（正整数），在文本框 Text3 中输入小数位数，单击按钮 Command1，在标签 Label 中显示除法运算的商。程序运行界面如图所示，但加框处代码有错，请改正：

Private Sub Command1_Click
Dim x, y As Integer
Dim n As Integer
Dim s As String
x = Val(Text1.Text): y = Val(Text2.Text)
n = Val(Text3.Text)
s = s + Str(x \ y)
s = s + "."
k = x Mod y
For i = 1 To n

x = x+k * 10 ①________

s = Str(x \ y) ②________

k = x Mod y
Next i
Label1.Caption = "商为： " + s
End Sub

上一题下一题 0.99难度填空题更新时间:2019-03-28 07:24:02

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

同类题1

小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（）。

A．①a = n Mod 2 ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2 ③ s = Str(a) + s

C．①a = n Mod 2 ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2 ③ s = s +Str(a)

同类题2

现要求编写 VB 程序实现如下功能：在文本框 Textl 中输入正整数 n (n 为奇数），单击 “生成” 命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为"1 3 …n-2 n n-2 3 1" 。例如 n=9 时，显示的数字串为 “1 3 5 7 9 7 5 3 1”

（1）根据代码可知，命令按钮 “生成 ” 的对象名是______________ 。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适代码。
Private Sub Com1 _Click()
Dim n As Integer, i As Integer, s As String
①__________
s = ""
For i = 1 To n
If i<= n \2 + 1 Then
s = s + Str (2*i-1)
Else
s = s + ②__________
End If
Next i
③__________
End Sub

同类题3

以下程序的功能是随机生成20个1到100之间的正整数，用选择排序法将其按从大到小的顺序排列后输出。请将下列程序补充完整。
Private Sub Command1_Click()
Dim a(20) As Integer，i As Integer
Dim j As Integer，temp As Integer
Prin “排序前：”
For i＝1 To 20
a(i)＝Int(Rnd*100)＋1
Print a(i)；
Next i
Print
For i＝1 To 19
For__①__ To 20
If __②__ Then
t＝a(i)
a(i)＝a(j)
③__
End If
Next j
Next i
Print“排序后：”
For i＝1 To 20
Print a(i)；
Next i
End Sub
(1)程序中划线处①应填入_______________________________________。
(2)程序中划线处②应填入_______________________________________。
(3)程序中划线处③应填入_______________________________________。

同类题4

由 n 行数字组成的数字三角形如图所示。设计一个算法，对于由 n 行数字组成的数字三角形（数字范围1，50，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下：
按三角形的行划分，若有n 行，则有n-1 个步骤
① 从底层开始，本身数即为最大值
② 倒数第二层的计算取决于底层的数据：
12+6=18,13+14=27,24+15=39,24+8=32；
③ 倒数第三层的计算取决于底二层的数据：
27+12=39,39+7=46,39+26=65；
④ 倒数第四层的计算取决于底三层的数据：
46+11=57,65+8=73；
⑤ 最后的路径：13—8—26—15—24 其和为 86。
根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框 text1 中输出最大值。

依据上述描述设计如下 VB 程序：
Const n = 5
Dim sx As String
Dim i, j, k, a(1 To 100) As Integer
Private Sub Command1_Click()
List1.Clear
For i = 1 To n
For j = 1 To i

__________

sx = sx + Str(a((i - 1) * n + j))

Next j

For k = n To i Step -1

sx = " " + sx

Next k

List1.AddItem sx

sx = ""

Next i
End Sub
Private Sub Command2_Click()
For i = n To 1 Step -1
For j = 2 To i

If__________Then

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

Else

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

End If

Next j

Next i
__________
End Sub
请回答下列问题：
(1)若数字金字塔如图

，输出路径最大值是______________________。
(2)请在①②③划线处填入合适的代码。

同类题5

Sub test3()双重循环运行输出图形与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是（）

相关知识点