单机操作题参照.pdfVIP

【第1题】 打开“ 工程 1.vbp ”，完善程序并保存。 打开“ 工程 1.vbp ”，完善程序并保存。 实现功能： 输入 10个数，存放在数组中， 并按输入的逆序输出在窗体上。 实现功能：在 Text1 、Text2 、Text3 中输入三个整数后，单击“输出最 Private Sub Command1_Click() 大值”按钮后，在 Label3 中显示这 3个数中的最大值。 Dim s(9) As Single Private Sub Command1_Click() For i = 0 To 9 Dim a, b, c, max As Integer ① = Val(InputBox( 请输入一个数 )) a = Val(Text1.Text) Next i b = Val(Text2.Text) ① max=b For i = 9 To 0 Step ② ① s(i) c = Val(Text3.Text) ② max=c Print ③ ② -1 If a b Then max = a Else ① ③ max Next i ③ s(i) If c max Then ② End Sub Label3.Caption = CStr( ③) 操作题 (5 道 共40分) End Sub 【第1题】 【第2题】 在 Text1 文本框中输入一个年号，判断它是否是闰年，并输出判断结果 打开“ 工程 1.vbp ”，完善程序并保存。 “是闰年”或“不是闰年”。 实现功能：在 Text1 中输入一个代表秒数的整数后，单击“计算”按钮 判断闰年的算法是：如果此年号能被 400 除尽，则它是闰年，否则如果 后，在 Label1 、Label2 、Label3 中显示对应的小时、分钟和秒数。如在 它能被 4整除而不能被 100整除，则它是闰年，否则它不是闰年。打开文 Text1 中输入 “3672 ”，Label1 、Label2 、Label3 中分别显示 “1”、 “1”、 件“ 工程 1.vbp ”，完善程序后并保存。 “12”，即 1小时 1分 12秒。