VB---生成随機數，大小寫轉換，随機生成個位數

一．                實驗目的

1.                 生成随機數

2.                 實作大小的轉換

3.                 随機生成個位數

為了學習到真正的運用VB知識做題，要學會運用如何随機生成随機數，大小寫的轉換，生成個位數。

二．                實驗内容

1.生成随機數

再窗體上放三個文本框，一個command按鈕，三個label. Label1屬性是輸入随機數的下界，Label2的屬性是輸入随機數的上界，Label3的屬性是生成的随機數。

Private sub command click ()

Dim m as integer

Dim n as integer

m=Val (Text1.text)

n=Val (Text2.text)

Text3.text=m + Lit (Rod *(n-m+1))

End Sub

在窗體的load事件過程中調用Randomize函數

Private Sub Form _Load ()

Randomize

      End Sub

2.實作大小寫的轉換

建立Form1的屬性字母轉換，Label的屬性是請輸入英文字母，Text1的屬性為空，command1的屬性是轉大寫，command2的屬性是轉小寫，command3的屬性是還原。

a.     在通用聲明中，聲明子產品級變量x

Dim x as string

b.    在代碼視窗中選擇form控件的load事件，代碼程式

Private sub form _load ()

x=Text1.text

End Sub

c.      在代碼視窗中選擇command1控件click 事件寫代碼

Private Sub command1_click ()

Text1.text=V case (x)

End Sub

d.    在代碼視窗中選擇command2控件click 事件，編寫程式。

Private Sub command2_click ()

Text1.text=L case (x)

End Sub

e.      在代碼視窗中選擇command3控件click事件，編寫程式。

Private Sub command3_ click ()

Text1.text=x

End Sub

3.生成個位數

Private Sub command1 _click ()

Dim a, b, c as integer

Cols

Randomize

a= lnt (10* Rod)

b= lnt (100* Rod)

c =Int (1000* Rod)

Print “a =”&a

Print “b =”&b

Print “c=”&c

End Sub

三．                心得體會

      VB的題太難做了，自己隻會照着書上的做，不會自己設計，做完這三個題，我都是花了好長的時間做的，VB知識的隻要我們認真的學習，VB我們相信我們一定會的。

四．                沒有解決的問題

     在随機數，大小寫轉換，生成個位數中，沒有解決的問題還有很多，例如，不知道該怎樣編寫程式，我也不會編寫程式，這一直是最大的問題。

五．                解決的辦法

上網查找相關知識，找到問題的答案，到圖書館去找書籍，解決問題。

大二大三的學姐幫助解決問題，再加上自己的一些學習，自己也懂得一些知識。VB課程，我們一定會克服它的。