1、74vb001请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = For i = 1 To len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = lcase(temp1) y = y + temp2 Next i Text2.Text = yEnd Sub002请不要更改源程序的结构，删
2、除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i Next iEnd Sub003请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim s(9) As Sin
3、gle For i = 0 To 9 S(i) = Val(InputBox(请输入一个数) Next i For i = 9 To 0 Step -1 Print s(i) Next iEnd Sub004请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim h, m, s, ss As Integer ss = Val(text1.text) h = ss3600 m = (ss - h * 3600) 60 s = (ss - h * 3600) Mod 60 Label1.Caption = CStr(h)
4、Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub005请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim a, b, c, max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then max = a Else max=b If c max Then max=c Label3.Caption = CStr(max)End Sub006请不要更
5、改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim i, j As Integer For i = 1 To 4 Print Tab(6 - i); For j = 1 To 4 Print “*”; Next j Print Next iEnd Sub007题目要求不清请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim x, s As Single x = Val(Text1.Text) If Then s = 4 * Else s = 4
6、* x End If Label1.Caption = CStr(s)End Sub008请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善共有56人要乘船，大船限乘6人，小船限乘4人，坐大船每条10元，坐小船每条8元。打开工程1.vbp填空完成程序，使得当单击显示所有可能的乘船方式按钮时，输出全部可能的大船数、小船数及所需要的钱数。Private Sub Command1_Click() Dim i, j As Integer 变量i表示大船数, j表示小船数 Dim m As Integer 变量m表示所需钱数 Print 大船数, 小船数, 所需钱数 For i = 1
7、To 10 j = Int(56 - i * 6) / 4) + 1 m = j*8 + i * 10 Print i, j, m Next iEnd Sub009请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Dim a, b, c, x, n As IntegerPrivate Sub Command1_Click() Randomize Label6.Caption = 第 & n & 道题 a = Int(Rnd * 10) b = Int(Rnd * 10) Label1.Caption = a Label2.Caption = b n = n + 1End Sub
8、Private Sub Command2_Click() c = a + b x = Val(text1.text) If c = x Then Label3.Caption = 正确 Else Label3.Caption = 错误 End IfEnd SubPrivate Sub Form_Load() N=1End Sub010请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Label1.top = command1.topEnd SubPrivate Sub Command2_Click() Label1.to
9、p = command2.topEnd Sub011请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim a, b, c, p As Single a = Val(Text1.Text) b = Val(text2.text) c = Val(Text3.Text) p = b * b - 4 * a * c If p= 0Then X1 = (-b + Sqr(p) / (2 * a) X2 = (-b - Sqr(p) / (2 * a) Print X1=; X1 Print X2=; X2 End if Pr
10、int 该方程无实数根 End IfEnd Sub012请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 x = Val(InputBox(请输入x的值) If x 0 Then y = x + 5 * a Else y = x - 2 * b end if Print y=; CStr(y)End Sub013请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() D
11、im a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val(text1.text) bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 b = g * 100 + shi * 10 + bai text2.text = CStr(b)End Sub014请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim s As Single Dim q As Si
12、ngle Dim a As Single Dim b As Single Dim c As Single a = Val(InputBox(请输入边长a的值：) b = Val(InputBox(请输入边长b的值：) c = Val(InputBox(请输入边长c的值：) q = (a + b + c) / 2 s = sqr(q * (q - a) * (q - b) * (q - c) Print sEnd Sub015请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim year As Integer year
13、 = Val(InputBox(请输入年号:) If (year Mod 4 = 0) And (year Mod 100 0) or (year Mod 400 = 0) Then Print “是闰年” Else Print “不是闰年” End If End Sub016请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan =
14、 1 To 95 Wujiao = 100 - Wuyuan yiyuan If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print Wuyuan= & Wuyuan & ,Yiyuan= & Yiyuan & ,Wujiao= & Wujiao End if Next Yiyuan Next Wuyuan End Sub017请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(
15、InputBox(请输入苹果公斤数：) If x c) And (a + c b) And (b + c a) Then Let Text4.Text = OK Else Let Text4.Text = NO End ifEnd Sub021请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim i, a, b As Integer For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i-a*100-b*10 If a * a * a + b * b * b +
16、 c * c * c = i Then Print CStr(i) End if Next iEnd Sub022请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim h, x, y as Single Let x = Val(Text1.Text) Let h = Val(Text2.Text) Let y = x - (h / 100) * 0.5 Let Text3.Text = cstr(y)End Sub023请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Comm
17、and1_Click() Const pi = 3.14 dim r, s as Single r = Val(T1.text) s = pi * r * r T2.Text = cstr(s)End Sub024请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim n, i As Long Dim yes As boo Let n = Val(Text1.Text) Let yes = True For i = 2 To n 2 If n Mod i = 0 Then Let yes = End If Next i
18、 If yes Then Let Text2.Text = yes Else Let Text2.Text = no End IfEnd Sub025请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t = a a = b b = t Text1.Text = a Text2.Text = bEnd Sub026请不要更改源程序的结构，删除原
19、题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim a As Integer a = Val(text1.text) If a mod 2 = 0 Then Label1. = 偶数 Else Label1.Caption = 奇数 Enid ifEnd Sub027请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Form_Click() Dim i As Integer Dim j As Integer Print For i = -3 To 0 Print Tab(3); For j = 1 To
20、3 step 1 Print “*”; Next Print * NextEnd Sub028请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim s As Single s计算存款 Dim y As Integer y计算年份 Dim r As Single r是年利率 s = y = 0 r = Val(InputBox(输入年利率, 数据输入框) Do While s2000 y = y+1 s = s * (1+r) Loop Print y; 年以后，存款可以达到2000元 End Sub029请不要更改源
21、程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim tz As Integer tz是桃子数 Dim ts As Integer ts是天数 tz = 1 For ts = 1 To 9 tz =( tz+1) * 2 Next ts Print 最初共有桃子 & tzEnd Sub030请不要更改源程序的结构，完善程序，将替换为正确的代码Private Sub Command1_Click() = Text1.TextEnd Sub031请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub
22、 Form_Load() Timer1.Interval = 1000 End SubPrivate Sub Timer1_timer() End Sub032请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim x As Single x = Val(InputBox(请输入x的值！) y = 0.8 * x Else y = 0.7 * x Else Print 输入的数据出界！ End If End If Print x, yEnd Sub033请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善
23、Private Sub Command1_Click() Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 x = Val(InputBox(NO. & i) Print CStr(x) Next i Print total: & End Sub034请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善Private Sub Command1_Click() Dim w As Integer w是行李重量 Dim pj As Integer pj是机票价格 Dim fy As Single w = Val(Text1.Text) pj = Val(Text2.Text) If w 25 Then MsgBox (您的身材偏胖，需要加强锻炼！) Else If bz25 Then MsgBox (您的身材偏瘦，需要补充营养！) Else MsgBox (您的身材真棒！) End If End IfEnd SubPrivate Su
