小乐编写了一个求最小公倍数的程序，他先借鉴更相减损术求出最大公约数，再求出最小公倍数。更相减损术是出自《九章算术》的一种求最大公约数的算法，其原理是用大数减去小_刷题宝

题干

小乐编写了一个求最小公倍数的程序，他先借鉴更相减损术求出最大公约数，再求出最小公倍数。更相减损术是出自《九章算术》的一种求最大公约数的算法，其原理是用大数减去小数，互相减来减去，一直到减数与差相等为止。在文本框Text1中输入一个整数，在Text2中输入另一个整数，单击“计算”按钮Command1，在Label3中输出两个数的最小公倍数。程序运行界面如图所示。

（1）根据程序代码判断，保证程序正常运行，窗体中至少需要________个对象。
（2）为了实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim gys As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
a = m: b = n
Do While m <> n
If ①______Then m = m - n Else n = n - m
Loop
gys = n
Label3.Caption = "最小公倍数是:" + ②__________
End Sub
（3）若在文本框Text1中输入15，在文本框Text2中输入6，单击“计算”按钮后，语句m=m-n执行了___________次。

上一题下一题 0.99难度填空题更新时间:2019-05-08 10:47:51

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

同类题1

小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。

实现上述功能的 VB 代码如下，在划线处填入合适代码。
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 ntempend As Integer ‘ 记录当前结束日期的下标
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
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)

同类题2

数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。

程序代码如下：
Dim a(1 To 10) As Integer　
Dim i, j, k, kt As Integer　
Private Sub Command1_Click()
List1.Clear　　 '清除列表框数据
For i ＝ 1 To 10
　 Randomize　 '随机数初始化
　a(i) ＝ Int(Rnd() * 1000)
　 List1.AddItem Str(i) ＋ ”＝” ＋ Str(a(i))
Next i
Command2.Enabled ＝ True　'激活排序按钮
End Sub
Private Sub Command2_Click()
For i ＝ 1 To 9　
　 k ＝ i
For j ＝_________To 10
　 If a(j) > a(k) Then k ＝ j
Next j
　 If i <> k Then
_______
　End If
Next i
List2.Clear
For i ＝ 1 To 10
List2.AddItem Str(i) ＋ ” ＝” ＋ Str(a(i))
Next i
End Sub
请在①、②划线处填入合适的语句或表达式，把程序补充完整：
程序中①划线处应填入__________________；
程序中②划线处应填入__________________。

同类题3

人们常使用计算机程序解决一些实际问题。下面程序可以找出能被2、3、5除，余数为1的最小的4个正整数。（注：VB中不区分大小写）请分析程序回答问题。
Private Sub Command1_Click（ 1 ）
Dim CountN%, n%
CountN=0
N=1
Do
N=n+1
If n Mod 2=1 And n Mod 3=1 And n Mod 5=1 Then
Print n
CountN=CountN+1
End If
Loop___2___①___3___
End Sub
【小题1】利用计算机编程解决问题的过程中，需要使用一种程序设计语言来实现算法，这个过程叫做(　　)

A．设计程序

B．测试程序

C．运行程序

D．编写程序

【小题2】VB中保存工程文件的文件扩展名为(　　)

【小题3】程序中的If语句一般在流程图中用( )表示

A．平行四边形

【小题4】变量CountN的数据类型定义为（）

【小题5】变量CountN的作用是（）

B．求平均值

C．求最大值

【小题6】所用到的表示循环的标志性语句是（）

A．Dim……End If

C．Dim……Loop

D．Do……End If

【小题7】在这个循环中，CountN=CountN+1语句被执行（）

【小题8】①处的语句应该是（）

A．Until CountN =2	B．Until CountN =4
C．Until Countn =2	D．Until Countn =4

【小题9】这段程序的输出结果是(　　)

【小题10】VB语言中，下列合法的变量名是（）

【小题11】下列控件中可用于接收用户输入文本，又可用于显示文本的是（）

A．Label控件

B．TextBox控件

C．CommandButton控件

D．Timer控件

【小题12】VB中，下列哪一函数作用是将数值转化成字符串（）

【小题13】下列（）算法就是一种直接或者间接地调用自身的算法

A．穷举算法

B．排序算法

C．递归算法

D．解析算法

【小题14】程序中Command1控件响应的事件是（）

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题15】在VB中，“20”+“ 19”的运算结果是（）

C．“20+19”

同类题4

输入20个数，按从大到小的顺序打印。
PRIVATE   SUB   FORM----CLICK（   ）
DIM I AS INTEGER ，A（20） AS SINGLE
Dim J AS INTEGER
FOR I= 1 TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT I
FOR   I= 1 TO 19
FOR J= _______________ TO 20
IF  _____________________
_____________________
A（I）=A（J）
A（J）=T
END   IF
NEXT J
PRINT   A（I）；
____________________________
PRINT   A（I）
END   SUB

同类题5

有如下 VB 程序段：
For i = 1 To 9 Step 2

b(a(i) Mod 10) = b(a(i) Mod 10) + 1

Next i
s = 0
For i = 0 To 9 Step 3

s =s + b(i)

Next i
数组 b 各元素初始值为 0, 数组元素 a(1)到 a(9)的值依次为“29，74，12，38，16，45，21，57，33”，则执行该程序段后，s 的值为（）

相关知识点