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