算法填空专题练（105题）.docVIP

【第1题】在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。 Private Sub Command1_Click() max=bmax=c max=b max=c max a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then max = a Else ① If c max Then ② Label3.Caption = CStr(③) End Sub 【第2题】实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。 Private Sub Command1_Click() Dim h, m, s, ss As Integer ss = Val(①) text1.textss\3600(ss text1.text ss\3600 (ss Mod 3600) Mod 60 或 ss mod 60 或ss-h*3600-m*60 m = (ss Mod 3600) \ 60 s = ③ Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s) End Sub 【第3题】加密规则：明文：0123456789 密文：9876543210 实现以下功能后保存：若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。 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 len9- temp1 len 9- temp1 y For i = 1 To ①(Text1.Text) temp1 = Mid(x, i, 1) temp2 = ② y = y + temp2 Next i Text2.Text = ③ End Sub 【第4题】实现功能：用穷举法找出所有的水仙花数的程序并保存。水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer 100100next i 100 100 next i a = i \ ① b = (i - a * ②) \ 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i ③ End Sub 【第5题】实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。 Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 ① = Val(InputBox(请输入一个数)) s(i)-1 s(i) -1 s(i) For i = 9 To 0 Step ② Print ③ Next i End Sub 【第6题】在Text1文本框中输入一个年号，判断它是否是闰年，并输出判断结果“是闰年”或“不是闰年”。 判断闰年的算法是：如果此年号能被400除尽，则它是闰年，否则如果它能被4整除而不能被100整除，则它是闰年，否则它不是闰年。 Private Sub Command1_Click() Dim y As Integer y = Val(InputBox(请输入年号:)) or是闰年 or 是闰年 不是闰年 Print ② Else Print ③ End If End Sub 【第7题】实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为“321”。 Pr