用vb编写程序

用VB实现上述功能的函数是：

Function fun(m, n) As Integer

Sum = 0

For i = 1 To 100

  If i Mod m = 0 Or i Mod n = 0 Then

    Sum = Sum + i

  End If

Next i

fun = Sum

End Function

Private Sub Command1_Click()

m = CInt(InputBox("m="))

n = CInt(InputBox("n="))

Print "100以内能被"; m; "或"; n; "整除的数的总和="; fun(m, n)

End Sub

在窗体中建立一个文本框text1,multiline属性为true,scrollBars属性为2－vertical

复制进如下代码：

Private

Sub

Form_Load()

Dim

a&,

b$

For

a

=

100

To

200

If

a

Mod

3

=

0

Then

b

=

b

&

Str(a)

Next

a

Text1Text

=

b

End

Sub

---------我是华丽丽的分割线--------

dim

a(1

to

10)

as

long

dim

Temp()

as

long

‘保存能被3整除的数

dim

s

as

string

dim

n

as

integer

for

i=1

to

10

a(i)=inputbox("Please

input

data!")

next

i

for

i=1

to

10

if

(a(i)

mod

2)

then

n=n+1

s=s

&

cstr(a(i))

&

","

end

if

redim

temp(n)

as

long

dim

v

v=split(s,",")

for

i=0

to

ubound(v)

temp(i)=v(i)

next

i

提高题1编写一学生成绩统计程序，用户先输入学生的人数及科目数，再输入各位学生的各科课程的考试成绩，要求该程序可以计算各个学生的平均成绩及每门课程的平均成绩。程序保存时，程序运行结果如图所示。

提示本题使用动态的二维数组能够较好完成任务，数组的行号表示学生，列号表示科目，分别对数组的行或列进行求和即可进行学生科目成绩的统计

代码

Private Sub Command1_Click()

Dim a() As Integer

x = Val(Text1Text) '人数

y = Val(Text2Text) '科目数

ReDim a(x, y)

For i = 1 To x

For j = 1 To y

a(i, j) = InputBox("第" & i & "位同学的第" & j & "门成绩")

Next j

Next i

For i = 1 To x

s = 0

For j = 1 To y

s = s + a(i, j)

Next jPicture1Print "第"; i; "位同学的平均成绩是"; s / y

Next i

For i = 1 To y

s = 0

For j = 1 To x

s = s + a(j, i)

Next j

Picture1Print "第"; i; "门课的平均成绩是"; s / x

Next i

End Sub

以上就是关于用vb编写程序全部的内容，包括:用vb编写程序、用VB编写程序、用VB编写一学生成绩统计程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！