Question

VB程序求解答~急需谢谢啦

有两个程序写不来，各位帮忙啦
1.循环结构程序练习编写程序：用InputBox函数输入一个整数（这个n怎么定义嘞？n=inputbox（“”）？我不知道写什么），求1到这个数的奇数和S。
【提示】
判断N是否为奇数的方法：N MOD 2 = 1。
（）
2.循环结构程序练习编写一个程序，求出个位数为6，且能被3整除的三位数共有多少个？
【提示】
取出整数N的个位数方法：N MOD 10 = 6。判断N被3整除的方法：N MOD 3 = 0。

Answer 1

Private Sub Form_Load()
Dim n As Long, i As Long, x As Long, sum As Long
n = Val(InputBox("输入整数"))
For i = 1 To n
If i Mod 2 = 1 Then sum = sum + i
Next
MsgBox sum
'===========第二题如下：
For i = 100 To 999
If i Mod 3 = 0 And i Mod 10 = 6 Then x = x + 1
Next
MsgBox x & "个"
End Sub

Answer 2

1.
n = InputBox ("提示","标题",默认值,x坐标位置,y坐标位置)
如 n = InputBox ("请输入你的姓名"+vbCrLf+"然后点击确定","输入框", , 100,100)