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

显示全部楼层 · 2008-6-3 18:58:31

每一题:求1000以内所有能被7整除的数的个数.(注:如果控件要设置属性,请写出来)
第二题:计算1!+3!+5!+7!+9!..(注:如果控件要设置属性,请写出来)
第三题:使用循环结构编程,输出下列所示的图形..(注:如果控件要设置属性,请写出来)

*************

***********

*********

*******

*****

***

*
第四题:找出所有的"水仙花"数,所谓水仙花数,是指一个三位数,它的各位数字的立方和等于它本身..(注:如果控件要设置属性,请写出来)

千问 · 2008-6-3 18:58:31

以下程序均不需设置属性。1、For i = 1 To 1000If i Mod 7 = 0 Then c = c + 1Next iPrint c2、a = 1For i = 1 To 9a = a * iIf i Mod 20 Then s = s + aNext iPrint s3、For i = 1 To 7Print Spc(i - 1);For j = 1 To (15 - 2 * i)Print "*";Next jPrintNext i4、For i = 100 To 999If (i Mod 10) ^ 3 + (i \

千问 · 2008-6-3 18:58:31

'建立一个command1控件组（0-4），其它不用任何设定Option ExplicitDim I As Integer, J As Integer, C As Single, Jc As SinglePrivate Sub Command1_Click(Index As Integer)
Cls
Select

千问 · 2008-6-3 18:58:31

第一个题Private Sub Command1_Click()Dim num7 As Integernum7 = 0For i = 0 To 1000If i Mod 7 = 0 Thennum7 = num7 + 1Label2.Caption = num7End IfNextEnd Sub

千问 · 2008-6-3 18:58:31

这个用C做起来更简单,你试一下!