小明编写了一个VB程序,功能如下:输入一个不超过10000的整数,若该数的各位数字之积是其各位数字之和的倍数,则输出“Yes”,否则输出“No”。
程序运行时,在文本框Text1中输入一个整数,单击“判断”按钮Command1后,在标签Label3中显示判断结果。程序运行界面如下图所示。
(1)
在设计程序界面时,要清空标签Label3中的显示内容,应修改该标签的属性。
(2)
实现上述功能的VB程序如下,请在划线处填入合适代码。
Private
Sub Command1_Click()
Dim x As Integer, h As Integer, k As Integer
x = Val(Text1.Text)
h = 0
k=1
Do
While x > 0
h = h + x Mod 10
k=
x
= x \ 10
Loop
IfThen
Label3.Caption = “Yes”
Else
Label3.Caption = “No”
End
If
End
Sub
(3)
运行该程序,在文本框Text1中输入1234,单击“判断”按钮,显示的判断结果为。
答案: 【1】Caption
【1】k * (x Mod 10)【2】k Mod h = 0
【1】No