重庆医科大学 VB上机文档格式.docx

1、, Format（k, #.000）3利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a%（1 To 25）a（i） = Int（Rnd * 90 + 10）Print a（i）;For i = 1 To 24p = iFor j = i + 1 To 25If a（p） a（j） Then p = jNext jt = a（i）: a（i） = a（p）: a（p） = t从小到大排序为：;4 利用随机函数产生50个 1,6 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。a1 = 0a2 = 0a3 = 0a4 = 0 a5=0

2、 a6=0For i = 1 To 50m = Int（Rnd * 6 + 1）If m = 1 Then a1 = a1 + 1If m = 2 Then a2 = a2 + 1If m = 3 Then a3 = a3 + 1 If m = 4 Then a4 = a4 + 1If m = 5 Then a5 = a5 + 1If m = 6 Then a6= a6 + 11的个数为：, a12的个数为：, a23的个数为：, a3 4的个数为：, a45的个数为：, a5 6的个数为：, a65 利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。Dim a%（1 To 10）

3、Dim max%For i = 1 To 10a（i） = Int（Rnd * 900 + 100）If a（i） max Then max = a（i）最大数为： max6利用随机函数产生并显示10个4位数的正整数，找出其中的最小数、最大数。Dim min%a（i） = Int（Rnd * 9000 + 1000）min = a（1）For i = 2 To 10If a（i） 0 Then If m Mod 2 = 0 Then Print MsgBox（m &是正整数并且 m &是偶数 Else但是是奇数 End If End If If m MsgBox （m &不是正整数，因此不判断

4、奇偶性 End Sub 9 输入一个整数，编写一函数判断该数是否是偶数Dim m%m = Val（InputBox（请输入一个整数If m Mod 2 = 0 ThenElse不是偶数End If10 运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上 End Sub11 从文本框输入一个正整数，判断该数是否为素数。建立一个Text和CommandButtonPrivate Sub Command1_Click（）Dim N As Long, Flags As BooleanN = Val（Text1.Text

5、）Flags = TrueFor i = 2 To Sqr（N）If N Mod i = 0 ThenFlags = FalseExit ForNextMsgBox N & IIf（Flags, , 不） &是一个素数另外一个方法 建立一个命令 1个Text，1个Label 1个CommandButtonDim x%, i%x = Val（Text1.Text）Tag = TrueFor i = 2 To x - 1If x Mod i = 0 ThenTag = FalseIf Tag = True ThenLabel1.Caption = Text1.Text &是素数不是素数12 利用I

6、npubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。 Private Sub Form_Click（） Dim m%, n%, r%, t%输入第一个正整数 n = Val（InputBox（输入第二个正整数 n Then t = m: m = n: n = t t = m * n Do r = m Mod n n = r Loop Until r = 0 Print MsgBox（这两个数的最小公倍数是： t / m）13 输入一个整数，编写一函数判断该数是否同时是2和7的倍数If m Mod 2 = 0 And m Mod 7 = 0 Then同时是2和7的倍数不同

7、时是2和7的倍数14 编程计算下列公式的值，其中n （10）为从键盘输入的正整数。S=2!+4!+6!+（2*n）!Dim s#, i%, j%, x%x = InputBox（请输入小于10的正整数sum = 0For i = 1 To xs = 1For j = 1 To 2 * i s = s * jsum = sum + sPrint sumS=1!+3!+5!+（2*n-1）!For j = 1 To 2 * i - 1S=1!+2!+n!Dim n%n = Val（InputBox（输入n的值（n10）Sum = 0For i = 1 To nFor j = 1 To iSum = Sum + sPrint Sum15 在窗体上按上鼠标的右键，记录其的坐标。建立Lable1Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）Label1.Caption = X &, Y16 在文本框中输入一些英语单词，统计空格的个数。建立1个CommandButton，1个Text ,1个Labelstrold = s = Text1.TextFo