高职招考VB模拟题(5)

1、下面函数计算两个非负整数m与n的最小公倍数。请在空白处填入适当内容将程序补充完整。

Private Sub command1_click()

Dim m As Integer

Dim n As Integer

m = Val(InputBox("请输入整数M：", m))

n = Val(InputBox("请输入整数N：", n))

For I = 2 To m If m Mod I = 0 And _______(1)__________ Then

k = I

End If _____(2)___________ s= (3)

print “最小公倍数为：”,s

End Sub

2、窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load()

For i=1 To 100

If i Mod 7 =0 Then

(4)

End If

Next

End Sub

Private Sub Command1_Click()

Sum = 0

For i = 0 To (5)

Sum = Sum + (6)

Next

Text1.Text = Sum

End Sub

4、求所有满足条件的四位数ＡＢＣＤ，它是１１的倍数，且第三位数加上第二位数等于第一位数（即Ａ＝Ｂ＋Ｃ）。

Private sub command1_( )