编程题VB

附件一 编程题 1.(8) 输入以秒为单位表示的时间，编写程序将其换算成几日几时几分几秒，并输出在窗体上。（专科用） Private Sub Command1_Click() Dim h&, hh&, nn&, ss& h = val（inputbox（“请输入秒数”）） Label3.Caption = "给定的秒数是" & h hh = h \ 3600 nn = (h - hh * 3600) \ 60 ss = h Mod 60 Text1.Text = hh Text2.Text = nn Text3.Text = ss End Sub Private Sub Command2_Click() Label3.Caption = "给定的秒数是" Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command3_Click() End End Sub（作业4-2） 2.(10) 输入4个大小不同的数，将它们从大到小排序。 Private Sub Command1_Click() If C < D Then X = C: C = D: D = X Dim A ！, B ！, C ！, D！，X ！ Text1.Text = A A = Val(Text1.Text): B = Val(Text2.Text) Text2.Text = B C = Val(Text3.Text) : D = Val(Text4.Text) Text3.Text = C If A < B Then X = A: A = B: B = X Text4.Text = D If A< C Then X = A: A = C: C = X End Sub If A< D Then X = A: A = D: D = X If B < C Then X = B: B = C: C = X If B < D Then X = B: B = D: D = X 3.(11) 求一个一元二次方程 的根 Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, D As Single Dim X1 As Single, X2 As Single,T1 As Single, T2 As Single ‘T作临时变量 A = Val(Text1.Text): B = Val(Text2.Text): C = Val(Text3.Text) If A = 0 Then If B = 0 Then If C = 0 Then MsgBox "任意 X 都是方程的解。", , "信息" 'a=0,b=0,c=0 Else MsgBox "方 程 无 解 ！！！", , "出错信息" 'a=0,b=0,c≠0 End If Else X1 = -C / B 'a=0,b≠0 MsgBox "方程只有一个解。" & Chr(13) & "X=" & Round(X1, 4), , "信息" End If Else D = B * B - 4 * A * C 'a≠0 If D >= 0 Then 'a≠0,D≥0 X1 = (-B + Sqr(D)) / (2 * A) : X2 = (-B - Sqr(D)) / (2 * A) MsgBox "X1=" & Round(X1,4) & Chr(13) & "X2=" & Round(X2,4), , "信息" Else 'a≠0,D＜0 T1 = Round(-B / (2 * A), 4) : T2 = Abs(Round(Sqr(-D) / (2 * A), 4)) MsgBox "X1=" & T1 & "+" & T2 & "i" & Chr(13) & "X2=" & _ T1 & " - " & T2 & " i ", , "信息" End If End If End Sub 4.(13) 编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。 获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。 Private Sub Command1_Click() A = Val(Text3.Text) b = Val(Text4.Text) c = Val(Text5.Text) If A >= 95 And b >= 95 And c >= 95 Then Label4.Caption = "恭喜你，你获得了一等奖学金" ElseIf A >= 90 And b >= 90 And c >= 90 Then Label4.Caption = "恭喜你，你获得了二等奖学金" ElseIf A >= 88 And b >= 88 And c >= 88 Then Label4.Caption = "恭喜你，你获得了三等奖" Else Label4.Caption = "继续努力，争取下次获奖学金" End If End Sub 5.(16) 用两种循环结构输出101~500之间的所有奇数并输出它们的和。 (1) Private Sub Command1_Click() (2) Private Sub Command2_Click() Dim sum%, i% Dim sum%, i% sum = 0 sum = 0 : i = 101 For i = 101 To 200 Step 2 Do While i < 200 Print i, Print i, If i * 2 Mod 5 = 0 Then Print If i * 2 Mod 5 = 0 Then Print sum = sum + I sum = sum + i: : i = i + 2 Next I Loop Print Print Print "sum="; sum Print "sum="; sum End Sub End Sub 6.(15) 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 一个倒计时器，能设置起始时间并进行倒计时. Private Sub Command1_Click() If Command1.Caption = "&S暂停" Then Command1.Caption = "&C继续" Timer1.Enabled = False Else Command1.Caption = "&S暂停" If Label1.Caption = "01:30:00:0" Then Form1.Tag = Timer Timer1.Enabled = True End If End Sub Private Sub Command2_Click() Form1.Tag = Timer Label1.Caption = "01:30:00:0" End Sub Private Sub Timer1_Timer() m = 5400 - (Timer - Form1.Tag) n0 = (m * 10) Mod 10 m = Int(m) n1 = Format(m Mod 60, "00.") n2 = Format((m \ 60) Mod 60, "00:") n3 = Format(m \ 3600, "00:") Label1.Caption = n3 & n2 & n1 & n0 End Sub 7(18) 勾股定理中3个数的关系是： A2+B2=C2 。编写程序输出20以内的满足此关系的3个数的组合。 Private Sub Command1_Click() Dim a%, b%, c% For a = 1 To 20 For b = 1To 20 For c = 1 To 20 If a * a + b * b = c * c Then Print a, b, c End If Next c Next b Next a End Sub 8 (23) 百鸡问题 Private Sub Command1_Click() Dim A As Integer, B As Integer, C As Integer Co = 0 '统计买法的统计变量 Print "以下是不同买法 " Print "公鸡", "母鸡", "小鸡" For A = 1 To 34 For B = 1 To 20 For C = 3 To 99 Step 3 M = A + B + C N = 3 * A + 5 * B + C / 3 If M = 100 And N = 100 Then Print A, B, C Co = Co + 1 End If Next C Next B Next A Print "共有买法种数是", Co End Sub 9（25） 在矩阵中找最小数所在的行、列号（本科用） Option Base 1 Private Sub Command1_Click() Dim A(3, 4) Randomize For i = 1 To 3 For j = 1 To 4 A(i, j) = Int(Rnd() * 100) Next j, i For i = 1 To 3 For j = 1 To 4 Print A(i, j); " "; Next j Print Next i imin = 1: jmin = 1 For i = 1 To 3 For j = 1 To 4 If A(i, j) < A(imin, jmin) Then imin = i: jmin = j Next j, i Print "imin="; imin, "jmin="; jmin Print "min="; A(imin, jmin) End Sub 10（26）求矩阵的转置矩阵，其中矩阵中的各元素值随机产生（本科用） Option Base 1 Private Sub Command1_Click() Dim A(5, 5) Randomize For i = 1 To 5 For j = 1 To 5 A(i, j) = Int(Rnd() * 100) Next j, i For i = 1 To 5 For j = 1 To 5 Print Tab(4 * j); A(i, j); Next j Print Next i Print Print For i = 1 To 5 For j = 1 To i t = A(i, j): A(i, j) = A(j, i): A(j, i) = t Next j, i For i = 1 To 5 For j = 1 To 5 Print Tab(4 * j); A(i, j); Next j Print Next i End Sub 11（27）利用一维数组统计一个班45人的0-9、10-19、20-29、。。。90-99及100分的各分数段的人数，并将统计结果在列表框中显示出来。 Private Sub Command1_Click() Dim a(45), b(10), c$(10) For i = 0 To 10 b(i) = 0 If i <> 10 Then c(i) = Str(i * 10) & "---" & Str(i * 10 + 9) & "分数段的人数是：" Else c(i) = Str(i * 10) & "分的人数是：" End If Next i n = InputBox("请输入学生人数N", , 45) For i = 1 To n a(i) = Val(InputBox("请输入第" & i & "个成绩")) List1.AddItem a(i) Next i For i = 1 To n k = a(i) \ 10 Select Case 0 <= k And k <= 10 Case k = 0 b(k) = b(k) + 1 Case k = 1 b(k) = b(k) + 1 Case k = 2 b(k) = b(k) + 1 Case k = 3 b(k) = b(k) + 1 Case k = 4 b(k) = b(k) + 1 Case k = 5 b(k) = b(k) + 1 Case k = 6 b(k) = b(k) + 1 Case k = 7 b(k) = b(k) + 1 Case k = 8 b(k) = b(k) + 1 Case k = 9 b(k) = b(k) + 1 Case k = 10 b(k) = b(k) + 1 End Select Next i For i = 0 To 10 List2.AddItem c(i) & Str(b(i)) Next i End Sub Private Sub Command2_Click() List1.Clear List2.Clear End Sub Private Sub Command3_Click() End End Sub 12（29）将随机产生的十个数（三位数）用选择法按升序排序。 Private Sub Command1_Click() Dim a(1 To 10) Randomize For i = 1 To 10 a(i) = Int(Rnd() * 1000) List1.AddItem a(i) Next i For i = 1 To 9 Min = i For j = i + 1 To 10 If a(j) < a(Min) Then Min = j Next j t = a(i): a(i) = a(Min): a(Min) = t Next i For i = 1 To 10 List2.AddItem a(i) Next i End Sub Private Sub Command2_Click() List1.Clear List2.Clear End Sub 13（63）在列表框中输出100-200之间不能被3整除的数。要求窗体上有两个命令按钮和一个列表框，一个命令按钮是“开始”，一个命令按钮是“清除”。 点击“开始”可以在列表框中显示满足条件的数据， 点击“清除”可以清除列表框中显示的数据。 Private Sub Command1_Click() Private Sub Command2_Click() For i = 100 To 200 Step 1 List1.Clear If i Mod 3 <> 0 Then End Sub List1.AddItem i End If Next i End Sub 14（64）设S=1/1！+1/2！+1/3！+…+1/N！ 首先编写一个求1/N！的函数，然后在窗体上设计一个命令按钮“开始”，点击“开始”，弹出对话框输入N，再计算S并输出。（本科用） Function fact ( n As integer) As long dim p As long , i As integer p=1 for i=1 to n p=p*i Next I Fact=1/p End fuction Private Sub Command1_Click() Dim S#, I%, N%,A! I = 1 : s = 0 : N=VAL(INPUTBOX(“请输入N”)) Do While i<=N A = fact( I ) s = s + A: I = I + 1 Loop TEXT2.TEXT=” S=1/1！+1/2！+1/3！+。。。+1/N！=” & S End Sub 15（62） X2 +X-6 X< 0 且X≠3 设 F（X）= X2 -5X+6 0 -3 Then y = x ^ 2 + x - 6 ElseIf x < 10 And x <> 2 Then y = x ^ 2 - 5 * x + 6 Else y = x ^ 2 - x - 1 End If Label3.Caption = "F(X)=" & y End Sub (4) 编写的Function函数，用该函数实现以下表达式求和，n为任意输入的数值。 (5) 编制求4个数中的最大数的过程，并利用该过程求任意输入的4个数的最大数。 (6) 使用InputBox函数、MsgBox函数进行输入和输出数据，求自由落体的位移，其 计算公式 六西格玛计算公式下载结构力学静力计算公式下载重复性计算公式下载六西格玛计算公式下载年假计算公式 为： 其中 (12) 给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400整除） (19) S=1 + 1 X 2 + 1 X 2 X 3 +...+ 1 X 2 X 3 X ... X n，任意输入n的值，求S的值。 (20) S=1 X 2 X 3 X ... X n，求S不大于10000时，最大的n的数值。 (21) 利用下述公式计算 的值（直到最后一项小于 为止）。