2022年VB常用必背程序.doc

2021年VB常用必背程序
2021年VB常用必背程序
1 / 301 / 30
2021年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
2021年VB常用必背程序
2021年VB常用必背程序
2 / 302 / 30
2021年VB常用必背程序
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
2021年VB常用必背程序
2021年VB常用必背程序
3 / 303 / 30
2021年VB常用必背程序
End Sub
6、求s=a+aa+aaa+...aaaaa（n个a），其中a和n值随机产生，a范畴是[1,9]整数，n范畴是[5,10]。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程拟定n和a值，并计算s。
Private Sub Form_Click()
Dim s!，t!，i!，a%，n%
a = Int(Rnd * 9 + 1)
n = Int(Rnd * 6 + 5)
t = 0：s = 0
Print "a="；a，"n="；n
For i = 1 To n
t = t * 10 + a
s = s + t
Print t;
Next i
Print
Print "s="；s
End Sub
7、计算100~300之间所有能被3和7整除数之和。
Private Sub Form_Click()
For i = 100 To 300
If i Mod 21 = 0 Then
s = s + i
Print i;
End If
Next i
Print
Print "s="；s
End Sub
2021年VB常用必背程序
2021年VB常用必背程序
4 / 304 / 30
2021年VB常用必背程序
8、编程求200--400范畴内5倍数或7倍数之和。(一种数如果同步是7和5倍数，则只能加一次。)
Private Sub Command1_Click()
Dim s1%,s2%,s3%,