在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

数组a为一组正整数，其奇数下标的数组元素是升序排序的奇数，偶数下标的数组元素是升序排序的偶数依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序段如下：
key=Val(Textl. Text):i=1:j=10
Do While i <=J
m=Int(i+j)/2+0.5)
If key Mod 2+ a(m) Mod 2= 1 Then m=m-1
If a(m)= key Then
List 1. AddIton"找到了!": Exit Do
ElseIf a(m)> key Then
j=m-2
Else
i=m+2
End If
Loop
If i>j Then List1. AddItem "未找到此数"
如果数组元素a(1)到a(10)的数据依次是“1，4，5，6，11，10，23，16，25，20”，key的值为1，则执行上述程序段，变量m依次被赋值为（）

同类题2

将十进制数转化为二进制数的 VB 程序段如下：
Dim y As Integer,s As String,r As Integer
y=Val(Text1．Text) '输入十进制数
s= ""
Do While y <> 0

Loop
Text2．Text = s '显示出二进制数
方框中的代码由以下三部分组成：
① s =CStr(r) +s 'CStr(r)是将变量Rr内容转换为字符串（字符串前没有空格）
② y= y\2
③ r= y Mod 2
代码顺序正确的选项是

同类题3

进入2016年7月份以来，浙江省气温连续高企，为了观察气温的变化情况，小明用VB编写了一个连续高温天数的统计软件。小明采集了杭州市7-8月的每日最高气温，并存放在ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框List1中，在文本框Text1中输入温度值，单击“统计”按钮Command1，程序自动统计运行在该温度值以上的最长连续天数，并显示在Text3中，同时在Text2中显示日期区间，运行界面如图所示。

Dim rq(1 to 100) as String:Dim qw(1 to 100) as Integer:Dim n as Integer
Private sub Form_Load()
'读取数据库内容，其中日期数据放在数组rq中，最高气温数据存放在qw中，第i个日期保存在rq(i)中，对应的气温保存在qw(i)中，并显示在列表框List1中，代码略
End sub
Private sub Command1_Click()
Dim max as Integer '记录最大连续天数
Dim nend as Integer '记录最大连续天数时的结束日期的下标
Dim ncount as Integer '统计连续天数
Dim tjqw as Integer '存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If _____________ Then
ncount = ncount + 1
Else
ncount = 0
End If
If max < ncount Then
max = ncount
__________________
End If
Next i
If max <> 0 Then Text2.Text = ____________________& ”-”& rq(nend)
Text3.text = Str(max)
End sub

同类题4

小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb，其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符。

图1
VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”。程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中。然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中。

图2
程序代码部分如下，请回答后面的问题：
Dim a() As String
Dim b() As String
Dim length As Integer
Private Sub Command1_Click()
List1.Clear
Dim i As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString ＝“provider＝microsoft.ace.oledb.12.0；data source＝”& App.Path &
“\____①____”
conn.Open
rs.ActiveConnection ＝ conn
rs.CursorLocation ＝ adUseClient
rs. Open (“select * from code”)
length ＝ rs.RecordCount
ReDim a(1 To length)
ReDim b(1 To length)
rs.MoveFirst
For i ＝ 1 To length
a(i) ＝ rs.Fields(“ask”)
b(i) ＝ rs.Fields(“ans”)
List1.AddItem (a(i)&“____”&b(i))
rs.____②____
Next i
End Sub
Private Sub Command2_Click()
Text2.Text＝“”
Dim s As String
Dim i As Integer
s＝Text1.Text
For i＝1 To Len(s)
Text2.Text＝Text2.Text&translate(Mid(s，____③____))
Next i
End Sub
Function translate(ask As String) As String
Dim i as Integer
Dim flag as Boolean
i＝1
flag＝True
Do While i＜＝length And flag
If a(i)＝ask Then
____④____
End If
i＝i＋1
Loop
If flag＝True Then
translate＝“”
Else
translate＝b(i－1)
End If
End Function
(1)程序代码①处应该填入___________________________________。
(2)程序代码②处应该填入____________________________________。
(3)在程序代码③处补全Mid函数： __________________________。
(4)程序代码④处应该填入____________________________________。
(5)translate函数使用的查找算法是________(填对分查找/顺序查找)。

同类题5

（加试题）某VB程序段如下：
s = 0
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then
a(j) = a(j) + 1
s = s + a(j)
End If
Next j
Next i
运行程序段后，变量s的值为

相关知识点