用do loop until语句编写

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:09:52
1到100之间既能被2整除又能被7整除的数的和及其个数

xiexie
用vb

Dim y As Integer
Dim k As Integer

Private Sub Command1_Click()
Print y, k
End Sub

Private Sub Form_Load()
x = 2
Do until x >100
If x Mod 7 = 0 Then
y = y + x '和
k = k + 1 '个数
End If
x = x + 2
Loop

End Sub

是VB吗?