去百度文庫,查看完整內容>
內容來(lái)自用戶(hù):元YuaN元YuaN
復習
一、VB的數據類(lèi)型
Boolean(布爾型):類(lèi)型說(shuō)明符:Boolean,占用2字節
Byte(字節):類(lèi)型說(shuō)明符:Byte占用1字節.
Integer(整型):類(lèi)型說(shuō)明符:Integer,類(lèi)型標識%,占用2字節.
Long(長(cháng)整型):類(lèi)型說(shuō)明符:Long,類(lèi)型標識"&",占用4字節.
Single(單精度型):類(lèi)型說(shuō)明符:Single,類(lèi)型標識"!",占用4字節.
Double(雙精度型):類(lèi)型說(shuō)明符:Double,類(lèi)型標識"#",占用8字節.
Currency(貨幣型):類(lèi)型說(shuō)明符:Currency,類(lèi)型標識"@",占用8字節.
Date(日期型):類(lèi)型說(shuō)明符:Date,占用8字節.
String(字符串,變長(cháng)):類(lèi)型說(shuō)明符:String,類(lèi)型標識"$"
二、VB的運算符
賦值運算符:用來(lái)給變量或對象的屬性賦值.把運算符右邊的內容(包括常量,變量,函數返回值或對象的屬性)賦給左邊的變量或對象.屬性.
使用賦值號應注意:
1.賦值號左邊必須是變量或對象的屬性,不能是數值,常量和表達式.
2.賦值號兩端的數據類(lèi)型應該匹配,不匹配時(shí)應進(jìn)行適當轉換.
3.給對象賦值時(shí),只有運行時(shí)可改寫(xiě)的對象屬性才能被賦值.
數學(xué)運算符
∧指數運算
-負號運算符
* /乘除運算,其中除法所得到的結果為實(shí)數
\ 整除,所得到結果為實(shí)際結果的整數部分.
MOD取模運算,兩數相除取余數.
+ - 加減運算.
字符串運算符
&+ 連接字符.
&與+連接運算符的區別
&強制兩個(gè)表達式Loop While BackColor順序查找(Next iEnd If例:將五個(gè)數Dim d(10000) As Lo
剛入門(mén)的話(huà)搞清楚三點(diǎn)就好了:
1.對象
Windows下的應用程序界面都是以窗口的形式出現的,窗口就是代表屏幕上的某個(gè)矩形對象,一個(gè)窗口可能包容其他窗口,這些被包容的窗口被稱(chēng)為子窗口。在VB中,把這些窗口叫做"窗體(Form)"。在窗體上,可以設置用于和用戶(hù)交互的各種不見(jiàn),如"文本框(TextBox)"、"標簽(label)"、"命令按鈕(command)"等等,這些不見(jiàn)統稱(chēng)為"控件"。應用程序的每個(gè)窗體和窗體上的所有控件都是VB的對象
2.屬性
VB為每一類(lèi)對象都規定了若干屬性。比如,窗體的屬性就又背景顏色、邊框線(xiàn)性、窗體名稱(chēng)等等。
3.方法
VB程序中的每一個(gè)窗體或控件對象,都具有若干可改變其行為或實(shí)現某個(gè)特定動(dòng)作(操作)的方法。
每一點(diǎn)的具體內容,你去找一本入門(mén)級的VB書(shū)籍,里面都有詳細的介紹。
希望能對你有所幫助。
新建一個(gè)窗體,上面添加一個(gè)command和一個(gè)timer
代碼如下
Dim Pathname As String, Filename As String, Delay As Integer
Private Sub Command1_Click()
Pathname = "e:\vb" '目錄名
Filename = "1.bat" '文件名
If Dir(Pathname, vbDirectory) = "" Then
MkDir Pathname
End If
If Right(Pathname, 1) <> "\" Then Pathname = Pathname & "\"
Open Pathname & Filename For Output As #1
Print #1, "@echo off"
Print #1, "。。" '這里面添加bat文件內容,一行一行寫(xiě)
Close #1
Timer1.Interval = 1000 '注意這里應該是1000,即1秒鐘計時(shí)一次,當然也可以提高精度比如500毫秒計時(shí)一次,注意最高精度為15毫秒,一般建議1000毫秒
Delay = 10 '這里是延遲時(shí)間,delay*timer1.interval 為延遲毫秒數,10*1000=10000即10秒,當然100秒1000秒隨意
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Delay > 0 Then
Delay = Delay - 1
Else
Shell Pathname & Filename
Timer1.Enabled = False
End If
End Sub
包含創(chuàng )建和倒計時(shí)打開(kāi)的步驟
(4>3) 為true; (5<7)為false; (10=4)為false; (not(5>4))為false; 所以原表達式轉換為:
true or false and false or false,從左到右進(jìn)行true or false為true
true and false or false,,true and false為false
false or false 為false
第二部分:
x=inputbox() //自己帶參數
if x=0 then
z=0
else
if x>0 then
z=x*3.14/2-5
else
z=-3.14*x/2+3
endif
endif
//輸出Z即可。
Public Sub proc(a%()) '全局(Public)過(guò)程proc,參數為整型數組a
Static i% '聲明靜態(tài)整型變量,即在本過(guò)程中,值可以保存
Do '開(kāi)始循環(huán)
a(i) = a(i) + a(i + 1) '將數組a元素的值按本公式重新賦給數組a的元素
i = i + 1
Loop While i End Sub
Private Sub Command1_Click() '點(diǎn)擊命令按鈕事件
Dim i%, x%(4) '聲明局部整型變量i和整型數組x,數組下標從0到4
For i = 0 To 4 '開(kāi)始循環(huán),循環(huán)變量i從0到4,缺省步長(cháng)為1
x(i) = i + 1 '將i+1的值賦給數組x
Next i '循環(huán)結束
For i = 1 To 2 '開(kāi)始循環(huán),循環(huán)變量i從1到2,缺省步長(cháng)為1
Call proc(x()) '調用過(guò)程proc,參數是數組x()
Next i
For i = 0 To 4 '開(kāi)始循環(huán),循環(huán)變量i從0到4,缺省步長(cháng)為1
Print x(i) '輸出數組x()的各個(gè)元素
Next i
End Sub
聲明:本網(wǎng)站尊重并保護知識產(chǎn)權,根據《信息網(wǎng)絡(luò )傳播權保護條例》,如果我們轉載的作品侵犯了您的權利,請在一個(gè)月內通知我們,我們會(huì )及時(shí)刪除。
蜀ICP備2020033479號-4 Copyright ? 2016 學(xué)習?shū)B(niǎo). 頁(yè)面生成時(shí)間:3.095秒