vb操作题整理全.doc

对文本框中输入的大写英文明文，一一转换成小写密文。 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) ① Len Len(X) temp1 = Mid(x, i, 1) temp2 = Chr(Asc(temp1) + 32) ② Chr(Asc(temp1) + 32) y = y + temp2 Next i Text2.Text = y ③ y End Sub 用穷举法，找出所有的水仙花数。所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身 例如：153是一个“水仙花数”,因为153=1^3＋5^3＋3^3。 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 ① 100 b = (i - a * 100) \ 10 ② 100 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i Next i ③ Next i End Sub 通过键盘依次输入任意10个数字，然后将其按先输入后输出的反方向显示。 Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox(请输入一个数)) ① s(i) Next i For i = 9 To 0 Step -1 ② -1 Print s(i) ③ s(i) Next i End Sub 在文本框输入a,b,c，然后求出最大值，显示在label3里 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 ① max = b If c max Then max = c ② max = c Label3.Caption = CStr(max) ③ max End Sub 输出图形 ***** ***** ***** ***** Private Sub Command1_Click() Dim i, j As Integer For i = 1 To 4 ① 4 Print Tab(5 - i); For j = 1 To 5 ② 5 Print *; ③ *; Next j Print Next i End Sub 当按下上移按钮，标签移动到和上移按钮等高位置，当按下下移按钮，标签移动到和下移按钮等高的位置 Private Sub Command1_Click() Label1.Top = Command1.Top ① Label1.Top = Command1.Top End Sub Private Sub Command2_Click() Label1.Top = Command2.Top ② Label1.Top = Command2.Top End Sub 题目：输入一个3位数，将其反过来输出，如输入“123”，则输出321 Private