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 & "年是平年")

End If

End Sub

5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。

Private Sub Command1_Click()

Dim x!, y!, z!

x = InputBox("inputx")

y = InputBox("inputy")

z = InputBox("inputz")

Print "       x      y     z"

If x > y Then t = x: x = y: y = t

If x > z Then t = x: x = z: z = t

If y > z Then t = y: y = z: z = t

Print "排序后"; x; "  "; y; "   "; z

End Sub

考二级的时候当时有点晕，啥都想不起来了{:7_183:}，，，，哈哈，不过最后过了{:7_188:}

VB已考完 不学了…女生VB弱弱哒