資源描述：
《vb編程-編程基礎實例》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、第三章VisualBasic語言基礎引入：輸入一個圓半徑，求它的周長和面積。一、理論知識：VisualBasic語言中的數據類型、常量、變量、函數?1、數據類型?類型名稱關鍵字（P46－47）字節(jié)型Byte整數Integer長整型Long單精度實數Single雙精度型Double字符串String2、變量的定義格式：Dim變量名［As類型名］（P50－51）練習：說出下列變量定義語句的意義（1）DimAAsInteger（2）DimXANAMEAsString（3）DimS（4）DimBAsString*203、字符串與數值轉換函數：（P59－61）（1）VA
2、L（X）：把字符串X的值轉換為數值型。如VAL（“123”）＝123VAL（“4.5AB”）＝4.5（2）STR(X):把數值X轉換成字符串如STR(123)＝“123”STR(5.8)＝“5.8”3、輸入輸出函數（P57－59）（1）Msgbox()函數（P57）功能：在對話框中顯示提示信息，等待用戶單擊后返回。格式1：Msgbox“提示信息”，按鈕數，“標題”格式2：字符串變量＝Msgbox（“提示信息”，按鈕數，“標題”）（2）InputBox()函數功能：顯示一個帶提示信息的輸入對話框，接收用戶輸入的字符串。格式：字符串變量＝InputBox（“提示信
3、息”，“標題”，“缺省值”）4、數學函數：（P59-60）（1）Int(x)函數功能：得到不大于X的最大整數。如Int(3.9)＝3Int(－5.1)＝-6（2）Fix(X)函數功能：取X的整數部分，直接去掉小數如Fix(3.9)＝3Fix(－5.1)＝－5（3）Sqr(N)函數，N>=0功能：得到N的平方根。如Sqr(9)＝3Sqr(10)＝3.1622774、數學函數：（P59-60）（4）Rnd(N)函數功能：產生隨機數如Rnd產生0――1之間的一個隨機數Int(（100－50+1）*Rnd+50)產生一個50――100之間的隨機整數Int(（1000－
4、0+1）*Rnd+0)產生一個0――1000之間的隨機整數Int(（Y－X+1）*Rnd+X)產生一個X――Y之間的隨機整數思考：如何產生38――98之間的一個隨機整數說明：如果要使產生的隨機數每次不同，應先運行Randomize語句練習1：說出下列表達式的值：1、VAL（“123”）＝2、VAL（“4.5AB”）＝3、Int(3.9)＝4、Int(－5.1)5、Fix(3.9)＝6、Fix(－5.1)＝7、Sqr(9)＝8、Sqr(10)＝練習2：說出下列表達式的值：1、產生一個50――100之間的隨機整數：Int(（100－50+1）*Rnd+50)2、產
5、生一個0――1000之間的隨機整數：Int(（1000－0+1）*Rnd+0)3、X大于100或X小于50：X＞100ORX＜504、5≤X≤9：X＞＝5ANDX＜＝9練習3：說出下列代碼的含義1、DimRAsSingle定義R為單精度變量2、R=Val(Text1.Text)把文本框內的文本轉換為數字賦值給變量R3、Text2.Text=Str(P)把變量P的數值轉換為字符串后傳輸給文本框Text24、Dimi,aAsInteger定義i、a為整形變量5、Randomize發(fā)送隨機種子數6、a=Int(10*Rnd+0)隨機產生一個0到9的整數7、Text1
6、.Text=Text1.Text+Str(a)把變量a的數值轉換為字符串后接到文本框Text1的文本中應用舉例：［例4－1］輸入一個圓半徑，求它的周長和面積。第一步：創(chuàng)建新窗體Form1，在此窗體上創(chuàng)建二個命令按扭Command1、Command2，，創(chuàng)建三個標簽Label1、Label2、Label3和三個文本框Text1、Text2、Text3。定義三個變量R、P、A分別代表半徑、周長和面積。第二步：設置對象的屬性對象類型對象名屬性設置窗體Form1Caption求圓周長和面積命令按鈕Command1Caption計算命令按鈕Command2Caption
7、退出標簽Label1Caption半徑標簽Label2Caption周長標簽Label3Caption面積文本框Text1Text空白文本框Text2Text空白文本框Text3Text空白第三步：補充完成代碼編寫PrivateSubCommand1_Click()DimRAsSingleDimPAsSingleDimAAsSingleR=Val(Text1.Text)P=2*3.14159*RA=3.14159*R*RText2.Text=Str(P)Text3.Text=Str(A)EndSubPrivateSubCommand2_Click()EndEn
8、dSub應用舉例：［例4－2］輸入任意
