用数组编程计算机的vb代码,VB编程题代码

VB编程题代码来源：刘景的日志

1、求100以内的素数。

Private Sub Form_Click()

Dim i%, j%

For i = 2 To 100

For j = 2 To i - 1

If i Mod j = 0 Then Exit For

Next j

If j = i Then Print i

Next i

End Sub

2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

Private Sub Command1_Click()

Dim a$, I%, c$, d$, n%

a = InputBox$("输入字符串")

n = Len(a)

For I = 1 To Int(n \ 2)

c = Mid(a, I, 1)

Mid(a, I, 1) = Mid(a, n - I + 1, 1)

Mid(a, n - I + 1, 1) = c

Next I

Print a

End Sub

3、计算0~200之间所有能被11或5整除的数之和

Private Sub Form_Click()

Dim n%, i%

n = 0

For i = 1 To 200

If i Mod 11 = 0 Or i Mod 5 = 0 Then

n = n + i

End If

Next i

Print n

End Sub

4、输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除)

Private Sub Command1_Click()

Dim y%

y = InputBox("请输入年数")

If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then

MsgBox (y & "年是闰年")

Else

MsgBox (y & "年是平年")