vb操作题整理全).docVIP

  • 20
  • 0
  • 约 8页
  • 2017-03-09 发布于贵州
  • 举报
vb操作题整理全)

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

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档