【正文】
Dim c As Integer a = InputBox(請輸入數(shù)據(jù) a) b = InputBox(請輸入數(shù)據(jù) b) c = a / b Print c End Sub 輸入指令 : InputBox( ) 輸出指令 : Print 數(shù)學(xué)運(yùn)算 : c = a / b 邏輯判斷 : 無 控制轉(zhuǎn)移指令 :無 定義變量 : Dim a As Integer 定義變量 a為整型 編程計(jì)算兩個(gè)輸入的整數(shù)的商。 2.計(jì)算機(jī)指令 : 指用來指揮計(jì)算機(jī)執(zhí)行一步基本操作的命令。 變量用來 存放 程序運(yùn)行過程中用到的 數(shù)據(jù) , 其本質(zhì)是計(jì)算機(jī) 內(nèi)存 中 命名 的 存儲單元 。 如:存放兩數(shù)和的變量,可以命名為 sum 變量的命名 變量的定義 P57 Dim 變量名 As 變量的類型 Dim 變量名 As 變量的類型 ,變量名 As 變量的類型 …… 如: Dim sum As Single Dim a As Single, b As Single, sum As Single ( 1)把外界輸入的數(shù)據(jù)存入變量 如: a = InputBox(請輸入數(shù)據(jù) a) ( 2)把程序計(jì)算的結(jié)果存入變量 如: c = a / b 變量的賦值 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox(請輸入數(shù)據(jù) a) c = a / b Print c End Sub 變量要 先賦值后使用 輸出結(jié)果是: Private Sub Command1_Click() Dim c As Integer c = 100 c = c+1 Print c End Sub 三 、 常量 類型名 說明 常量 Integer 整型 50 Single 實(shí)數(shù)型 、 String 字符型 請輸入一個(gè)數(shù) Boolean 邏輯型 True、 False 常量是指程序在運(yùn)行過程中 其值始終不變的量 。 要求: 1. 輸入圓的半徑 , 輸出圓的周長和面積 2.設(shè)計(jì)該問題的算法(用流程圖表示) 3.編寫程序,保存到文件夾 02圓周長和面積 開始 pi= 輸入半徑 r 輸出 c, s 結(jié)束 c=2*pi*r s=pi*r*r Private Sub Command1_Click() Dim r As single, pi A