當前位置:首頁 ? VB程序題 ? 正文

VB程序題:隨機產生一個3位正整數,然后逆序輸出,產生的隨機數與逆序數同時顯示。例如輸入735,輸出537。 VB教程實驗源碼 龔沛曾

解題:
在窗體先畫出兩個按鈕,按鈕1用于產生隨機數,按鈕2,用于產生逆序數,再畫一個文本框和一個標簽。文本框用于輸入。
Private Sub Command1_Click()
  ’Randomize ’加上這句,每次產生隨機數的第一次就不會總出現相同的數
  Text1 = Int(Rnd * 901 + 100)
End Sub

Private Sub Command2_Click()
  Dim x%, x1%, x2%, x3%
  x = Val(Text1)
  x1 = x Mod 10                   ' 分離出的個位數
  x2 = (x Mod 100) \ 10           ' 分離出的十位數
  x3 = x \ 100                    ' 分離出的百位數
  Label1 = x1 * 100 + x2 * 10 + x3
End Sub

程序運行效果圖:


Visual Basic程序設計教程(第3版) (龔沛曾等編)課后實驗源碼

來源:濟亨網

本文鏈接:http://www.cojdcn.tw/post/59.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

贊助商鏈接

湘公網安備 43011102000514號 - ICP備08100508號

黑龙江福彩22选5开奖果