vb报告册答案高等教育出版社王贺明主编文档格式.docx

1、Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. GotFocus（） LostFocus（） 10. 属性窗口 程序代码实验三：1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B11. B 二、判断题不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、1、abs（x+y）2. （3+x*y）23. （-b+sqr（b2-4*a*c）/（2*a）4.sin（30*3.14/180）+exp（2）四、1. int（rnd* 71+20） 或

2、int（rnd* 71）+202. x0 or x0 and y0 或者x*y=10 and x=A and x1E-6（3） j t（4） 5 11 5实验六B C C C D D D D C A实验七1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A（1）n！（2）1+1+2+3+4+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数Image1.Top = Int（Rnd * （Form1.ScaleHeight - Image1.Height）End Sub第11页编程2-3Private Sub Command1_Click（）

3、Dim x%, y%x = Int（Rnd * 900 + 100）Print 产生的随机数：; xy = （x Mod 10） * 100 + （x 10 Mod 10） * 10 + x 100反序数： Format（y, 000）Private Sub Command2_Click（）Dim x%, y As Stringy = Trim（Str（x） & Right（y, 1） & Mid（y, 2, 1） & Left（y, 1）Private Sub Form_Load（）2-4Dim m%, n%Randomizem = Val（Text1）: n = Val（Text2）x =

4、 Int（Rnd * （n - m + 1） + m）y = Int（Rnd * （n - m + 1） + m）z = Int（Rnd * （n - m + 1） + m）Label3 = m &到 n &之间的3个随机数为: x & Space（3） & y & z2-5Label1.Caption = DateLabel2.Caption = TimePrivate Sub Command3_Click（）Label3.Caption = WeekdayName（Weekday（Date）第十五页2-1方法一Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val

5、（Text1）a = x * 180 / 3.14aa = Int（a）b = （a - aa） * 60bb = Int（b）c = （b - bb） * 60cc = Format（c, #.000Label2 = 弧度 Text1 &转换为 aa &度 bb &分 cc &秒方法二x = InputBox（请输入弧度数值, 弧度转换, 0）xx = Val（x）MsgBox 2-2Dim x%If x / 400 = x 400 Or x Mod 4 = 0 And x Mod 100 0 ThenLabel2 = Text1 &年是闰年Else年不是闰年End IfDim x%, y%

6、, z%输入第一个数y = InputBox（输入第二个数z = InputBox（输入第三个数If x y Then t = x: x = y: y = tIf y z Then t = y: y = z: z = tPrint x, y, zy = Val（Text2）z = Val（Text3）z Thent = y:y Thent = x:Label1 = x & Space（5） &x = Val（InputBox（请输入上网时间:）If x -1 ThenSelect Case xCase Is = 100fei = x * 1End Select上网费用为: fei &元EndD

7、o, , -1）zongfei = zongfei & feiMsgBox zongfei, , 上网费用为Exit DoLoop第18页n = 0If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1Print nEnd Suby = x * 4Do While x = 0.0001s = s + （-1） （n + 1） * 1 / （2 * n - 1）pi = 4 * sPrint pi2-9For n = 100 To 999k = Tri

8、m（Str（n）If n = Left（k, 1） 3 + Mid（k, 2, 1） 3 + Right（k, 1） 3 Then Print n2-11s = 0: Max = 0: Min = 1000For i = 1 To 20x = Int（Rnd * 50 + 51）Print x;Max Then Max = xMin Then Min = xs = s + xNext iaver = s / 20Printmax= Max, min= Min, aver= aver第八页编程Label3 = Val（Text1） * Val（Text2）Label3 = Val（Text1）

9、/ Val（Text2）Picture1.Picture = LoadPicture（d:tu1.jpgtu2.jpgPicture1.Visible = FalseImage1.Picture = LoadPicture（Documents and SettingsAll UsersDocumentsMy Pictures示例图片Sunset.jpgTimer1.Enabled = TrueTimer1.Enabled = FalsePrivate Sub Image1_Click（）Private Sub Timer1_Timer（）Image1.Left = Int（Rnd * （Form1.ScaleWidth - Image1.Width）If x / 400 = x 400 Or