几个VB小题目,大家帮忙做一下!

来源：百度知道 编辑：UC知道 时间：2024/05/22 01:25:17
每一题:求1000以内所有能被7整除的数的个数.(注:如果控件要设置属性,请写出来)
第二题:计算1!+3!+5!+7!+9!..(注:如果控件要设置属性,请写出来)
第三题:使用循环结构编程,输出下列所示的图形..(注:如果控件要设置属性,请写出来)
*************
***********
*********
*******
*****
***
*
第四题:找出所有的"水仙花"数,所谓水仙花数,是指一个三位数,它的各位数字的立方和等于它本身..(注:如果控件要设置属性,请写出来)

以下程序均不需设置属性。

1、
For i = 1 To 1000
If i Mod 7 = 0 Then c = c + 1
Next i
Print c

2、
a = 1
For i = 1 To 9
a = a * i
If i Mod 2 <> 0 Then s = s + a
Next i
Print s

3、
For i = 1 To 7
Print Spc(i - 1);
For j = 1 To (15 - 2 * i)
Print "*";
Next j
Print
Next i

4、
For i = 100 To 999
If (i Mod 10) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i \ 100) ^ 3 = i Then Print i
Next i

'建立一个command1控件组（0-4），其它不用任何设定

Option Explicit
Dim I As Integer, J As Integer, C As Single, Jc As Single

Private Sub Command1_Click(Index As Integer)
Cls
Select Case Index
Case 0
Print "1000以内所有能被7整除的数是："
C = 0
For I = 1 To 1000
If I Mod 7 = 0 Then
C = C + 1
If C Mod 10 = 0