有个VB问题请教一下大家啊

来源：百度知道 编辑：UC知道 时间：2024/06/30 05:07:58
有个VB问题请教一下大家啊 谁能帮我写一个VB程序的代码啊 问题是

使用者可以输入一个三位以上的数字,程序会将移到此数之间能被七或13整除的数显示出来,并计算共有几个在窗体中打印出来.

妮子谢谢大家拉 快点哦 要交作业拉 嘿嘿

Private Sub Form_Load()
Form1.AutoRedraw = True
a = InputBox("输入数字")
For i = 1 To a
If i Mod 7 = 0 Or i Mod 13 = 0 Then
Print i; Spc(1);
j = j + 1
End If
Next
Print "总数：" & j

End Sub

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Text1.Text
For i = 1 To a
If i Mod 7 = 0 Or i Mod 13 = 0 Then
Print i;
b = b + 1
End If
Next i
Print
Print "总数为："; b
End Sub

Private Sub Command1_Click()
Dim a As String
s = 0: m = 0
a = Text1.Text
If Len(a) >= 3 Then
Print "能被7整除的数字有：";
For i = 1 To Len(a)
If Mid(a, i, 1) Mod 7 = 0 Then
s = s + 1
Print Mid(a, i, 1);
End If
Next
If s = 0 Then Print "没有"
Print "能被13整除的数字有：";
For i = 1 To Len(a)
If Mid(a, i, 2) Mo