vb操作题整理全).docVIP

对文本框中输入的大写英文明文，一一转换成小写密文。 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 Pri