在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

下列程序执行后变量 m 的值为（）
s = "369akXdUq" m = 0
For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

End If

同类题2

（加试题）某算法流程图如下图所示，该流程图对应的程序段为（）

A．s = 0
For i = 1 To 20
If i Mod 3 = 0 Then
s = s + 2 * i
Else
i = i + 1
End If
Next i

B．i = 1
For s = 0 To 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Next i

C．i = 1: s = 0
Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
Else
i = i + 1
End If
Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

同类题3

以下语句中错误的是（）

A．Const var1=123

B．Dim var2 As String

D．Dim d(1 to 500) As Double

同类题4

有如下Visual Basic程序段：
　　Dim i As Integer, s As Integer
　　 s ＝ 0
　　 i ＝ 1
n ＝ 5
　　Do While i <＝20
　　 s ＝ s ＋ i ＋ n
　　 i ＝ i * 5
　　Loop
　　该程序段运行后，变量i的值是________，变量s的值为________。

同类题5

星期天，小龙来到动物园游玩，园内共有N个景点（可在10个以上），每个景点都有一个标号，标号为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

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
①
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
②
If y > ans Then ans = y
k = 0
Exit Do
End If

Next i

Text2.Text = Str(ans)

End Sub
（1）要使程序运行时，Form1的BackColor属性值为黑色，以下代码正确的是______（单选，填字母）。

A．Private Sub Form_Load()

Form1. BackColor = RGB(255, 255,255)

B．Private Sub Form_Load()
Form1.BackColor = RGB(0, 0, 0)
End Sub

C．Private Sub Form1_Load()

orm1.BackColor = RGB(255,255,255)

D．Private Sub Form1_Load()

Form1.BackColor = RGB(0, 0, 0)
End Sub

（2）若有7个景点，且每个景点的连接情况为：6，3，7，2，7，5，4，那么小龙最多可以游玩的景点数是__________。
（3）请把划线处的代码补充完整：
①__________
②__________
（4)程序加框处代码有错,请改正：_________

相关知识点