国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用VB計算1 1=2

2019-11-18 17:28:46
字體:
來源:轉載
供稿:網友
之所以用VB計算1 1=2,是為把一個從沒接觸過VB的人帶入VB的有趣世界。初步認識一下VB。

不管你能不能看懂這是什么意思,請先照下面說的去做吧(當然是對初學者來說),等學習了后面的教程你就會明白的!

第一步:運行VB(這里以VB5.0中文版為例,下同)。

第二步:新建一個標準EXE工程。運行VB時直接建立或使用“文件”菜單中的“新建工程”。

第三步:你會見到一個稱為“Form1”的窗體。現在請點擊一下工具箱(一般位于左邊)中的那個大“A”,稱為Label,然后在Form1中拖動一下。就繪出一個控件,記住,這個東西叫“控件”,而且是一個標簽控件。你還可以調整它的大小。

第四步:點擊一下剛才你繪出的控件,然后找到屬性窗口(一般在右邊),看到其中有一個Caption屬性,屬性值為Label1。請將其值改為“第一個加數”。

第五步:從工具箱中找到“TextBox”控件,鼠標懸停在上面會有提示。點擊一下,然后在Form1中拖動一下,就繪出一個文本框控件。將這個文本框控件放在你剛才創建的標簽控件的下面。再點擊一下,找到屬性窗口中的text屬性,將該屬性值改為空。

第六步:重復第三至第五步,只不過要把新的標簽控件的Caption屬性設為“第二個加數”。注意各個控件不要重疊在一起。

第七步:重復第三至第五步,只不過要把新的標簽控件的Caption屬性設為“兩數的和”。注意各個控件不要重疊在一起。

第八步:從工具箱中找到“CommandButton”控件,用同樣的方法繪制到Form1中,并將其Caption屬性設為“兩數相加”。

第九步:雙擊你剛才創建的CommandButton控件,會彈出代碼窗口,其中已經有一部分自動生成的代碼,如下所示:

PRivateSubCommand1_Click()

 

EndSub

請在其中加一行,成為:

PrivateSubCommand1_Click()

Text3.Text=Str$(Val(Text1.Text) Val(Text2.Text))

EndSub

至此,你的第一個程序就完成了。

運行一下吧!點擊工具欄上的啟動按扭或使用運行菜單中的啟動或按F5均可。運行時會彈出一個窗口(就是剛才那個Form1)。在前兩個文本框中都輸入1,然后點擊“兩數相加”按扭,看看出現了什么?

好了,別忘記存盤,會生成兩個文件,一個.frm文件,一個.vbp文件,名字任你起。

現在讓我們分析一下剛寫的那句代碼:

Text3.Text=Str$(Val(Text1.Text) Val(Text2.Text))

聰明的你一定看明白了,這句代碼的意思就是將兩個文本框中的文本分別先轉換為數字,然后相加,再轉為字符串在Text3中輸出。注意不能寫成:

Text3.Text=Text1.Text Text2.Text

因為字符串相加和數值相加是不一樣的。數值相加時1 1=2,而字符串相加時"1" "1"="11"。

 

思考題:將Text3.Text=Str$(Val(Text1.Text) Val(Text2.Text))

改為:Text3.Text=Val(Text1.Text) Val(Text2.Text)會發生什么情況?為什么?

請驗證一下!

->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 东明县| 巴马| 常宁市| 嘉峪关市| 柯坪县| 伊春市| 阜阳市| 平顶山市| 建宁县| 瑞金市| 富锦市| 铁岭市| 乌拉特前旗| 罗甸县| 六安市| 綦江县| 闻喜县| 喜德县| 木里| 章丘市| 临西县| 湘潭市| 巴东县| 柯坪县| 姚安县| 玛曲县| 阳新县| 南皮县| 奎屯市| 道孚县| 浦县| 商河县| 咸丰县| 民丰县| 松阳县| 清镇市| 西平县| 罗田县| 龙口市| 潞城市| 酉阳|