VB编程程序代码VIP专享

VB 编程程序代码(50 页)Good is good, but better carries it.精益求精，善益求善。 VB 编程程序代码 1、求 100 以内的素Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置例如，将输入的“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 Sub3、计算 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 nEnd Sub4、输入一年份，推断它是否为闰年，并显示有关信息。（推断闰年的条件是：年份能被 4 整除但不能被 100 整除，或者能被整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年数")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 MsgBox (y & "年是闰年")Else MsgBox (y & "年是平年")End IfEnd Sub5、已知 x,y,z 3 个变量中存放了 3 个不同的数，比较它们的大小并进行调整，使得 x y Then t = x: x = y: y = tIf x > z Then t = x: x = z: z = tIf y > z Then t = y: y = z: z = tPrint "排序后"; x; " "; y; " "; zEnd Sub6、求 s=a+aa+aaa+...aaaaa（n 个 a），其中 a 和 n 的值随机产生，围是[1,9]的整数，n 的范围是[5,10]。如 a=3,n=6,则 s=3+33+333+3333+33333+333333。编程确定值，并计算 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 ...