vb高教版龚沛曾主编课后实验题答案Word下载.docx

1、 该事件的作用窗体始终与图一样大Caption = 窗体大小不变Form1.Width = 260 * 16 260是Tongji-2.bmp图的宽度，象素单位Form1.Height = 260 * 16 + 200 260是图的高度，象素单位，200是窗体的标题栏高度A5Sub Command1_Click（） Text1.FontName = 隶书 Text1.FontSize = 25Sub Command2_Click（） Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1

2、.FontSizeB1Text2 = Format（5 / 9 * （Val（Text1） - 32）, 0.00Private Sub Command2_Click（） Text1 = Format（9 / 5 * Val（Text2） + 32, 或 Dim f!, c! 声明两个变量 f = Val（Text1） c = 5 / 9 * （f - 32） Text2 = Format（c, 保留两位小数 Dim ff!, cc! cc = Val（Text2） ff = 9 / 5 * cc + 32 Text1 = Format（ff, B2Label2 = Format（Val（Te

3、xt1） * Val（Text1） * 3.14, Label3 = Format（Val（Text1） * 3.14 * 2, Private Sub Text1_LostFocus（） If Not IsNumeric（Text1.Text） Then MsgBox 输入有非数字字符，请重新输入, , 警告 Text1.Text = Text1.SetFocus End IfPrivate Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii = 13 Then If Not IsNumeric（Text1.Text） ThenB3 n =

4、 Int（Log（2） / Log（1.008） + 1） Label1 = n & 年后人数超过26亿B4 Dim x, dx, cd x = Text1.Text dx = UCase（x） cd = Len（x）大写字母为:; dx字符串长度为: cdB5 Text1 = Int（Rnd * 900 + 100） Dim x%, x1%, x2%, x3% x = Val（Text1） x1 = x Mod 10 分离出的个位数 x2 = （x Mod 100） 10 分离出的十位数 x3 = x 100 分离出的百位数 Label1 = x1 * 100 + x2 * 10 + x3B

5、6Label1 = Left（Text1, 11） Label2 = Mid（Text1, 12, 6） Label3 = Right（Text1, 5）B7 Print For i = 1 To 5 Print Tab（15 - i * 2）; String（2 * i - 1, ）; Spc（18 - 4 * （i - 1）; Next i进一步要求： String（10 - （2 * i - 1）, B8x = Val（InputBox（输入一正实数, 计算, 0）pf = Format（x * x, 0.000pfg = Format（Sqr（x）, lf = Format（x * x

6、 * x, lfg = Format（x （1 / 3）, Print 平方为: pf; Space（5）;平方根为: pfg;立方为: lf;立方根为: lfgC1Dim x!, y!输入x的值）If x 1000 Theny = xElseIf x 150 Theny = 150C3 Dim x!, z! x = InputBox（input x y = InputBox（input y z = InputBox（input z x y z 排序前 x; y; z If x y Then t = x: x = y: y = t z Then t = x: x = z: z = t If y

7、 a（i + 1） Thenz = a（i + 1）a（i + 1） = a（i）a（i） = zPicture2.Print a（0）Picture2.Print a（1）Picture2.Print a（2）C5Private Sub Text2_LostFocus（） Dim m%, n%, y% m = Val（Text1） n = Val（Text2） If n Mod 2 0 Then MsgBox （脚数必定为偶数 Text2 = Text2.SetFocus Else y = n / 2 - m脚数必须2倍的头数，请重新输入 x = n / 2 - m Label2 = y L

8、abel3 = m - yC6Dim a!, b!, x1!, x2!, de!a = Text1b = Text2c = Text3de = b * b - 4 * a * ct = 2 * aIf de = 0 Then Text4 = Format（-b / t, Text5 = Format（-b / t, ElseIf de Text4 = Format（-b + Sqr（de） / t, Text5 = Format（-b - Sqr（de） / t, ） &+ Format（Sqr（Abs（de） / t, i-Text1 = Text2 = Text3 = Text4 = Te

9、xt5 = C7Private Sub Text3_LostFocus（） Select Case Trim（Text3） Case Text4 = Val（Text1） + Val（Text2） Text4 = Val（Text1） - Val（Text2）* Text4 = Val（Text1） * Val（Text2）/ If Val（Text2） = 0 Then分母为零，重新输入 Text4 = Val（Text1） / Val（Text2） End SelectC8 Select Case Trim（Text1） Case 1Monday Case 2Tuesday Case 3W

10、ednesday Case 4Thursday Case 5Friday Case 6Saturday Case 7Sunday Case Is 7, Is 7 Or Text1 1 Then Text2 = Choose（Text1, D1 For i = 1 To 9 Print Tab（10 - i）; String（2 * i - 1, Trim（Str（i）D2For i = 1 To 10 Step 1 Print Tab（i）; String（20 - 2 * i）, Chr（64 + i）D3Dim s!, t!, i&s = 1t = 1For i = 1 To 100000

11、t = t + is = s + 1 / tIf 1 / t 0.00001 Then Exit ForFor结构 s, i;项D4Dim n&, pi#, i&n = InputBox（输入n值pi = 2For i = 1 To n pi = pi * （2 * i） / （2 * i - 1） * （2 * i） / （2 * i + 1）当n= n &时，pi= piD5 Dim s!, i!, a%, n% a = Int（Rnd * 9 + 1） n = Int（Rnd * 6 + 5） t = 0: s = 0a= a, n= n For i = 1 To n t = t * 1

12、0 + a s = s + t Print t;s= sD6Dim s As Integers = 0For i = 1 To 9For j = 0 To 9 For k = 0 To 9 s = i * 100 + j * 10 + k If s = i 3 + j 3 + k 3 Then Print s Next kNext jPrivate Sub Command3_Click（）formd6.Hidemain.ShowD7, x0!a = 27x0 = 2i = 0Do i = i + 1 x1 = 2 * x0 / 3 + a / （3 * x0 * x0） If Abs（x1 -

13、 x0） 0.00001 Then Exit Do x0 = x1LoopPrint x1, iD8x0 = 0.01For i = 1 To 30 s = s + x0 x0 = x0 * 2Print sD9Private Sub Command4_Click（）Picture1.Print x课安排在y课安排在z课安排在 For z = 5 To 6For x = 1 To z - 2For Y = x + 1 To z - 1X1 = Choose（Weekday（x）, 周一周二周三周四周五周六周日Y1 = Choose（Weekday（Y）, z1 = Choose（Weekday（z）, X1; Y1; z1Next YNext xNext zE1 Dim a（1 To 10） As Integer For i = 1 To 10 a（i） = Int（Rnd * 71 + 3