1樓:88888不過
vb與資料庫的連線操作,sql,adodb等。熟悉學生管理系統資料庫2.vb一些常用的控制元件,控制元件事件
3.資料匯出,如匯出到excel
4.與vb相比,對其他如vc,dephi,在做學生管理系統所擁有的優劣
5.學生管理系統功能流程要熟悉,**要熟悉,特別是資料流程
關於vb6.0 基礎知識
2樓:華仔成教
首先要了解 instr函式:instr(a,b) 表示從a中查詢含有b字元的位置,它返回一個數字如果為0,就是沒有包含b字元
你的**作用是:先判斷第一個字元如果是「.」,就將內容清空;再判斷點出現的位置(注意:思路演算法錯) 小於總字元數,就將其最後1位字元去掉
其實你可以利用vb的 isnumeric 來判斷是否數值型,例如:
if isnumeric(text3.text) then
msgbox "數值"
else
msgbox "為空或不是東西"
end if
我自己有做的函式,你可以參考一下,功能是取得部分或全部字串中的數值部分,主要是對系統中原有的函式進行了擴充套件:
使用方法1:val(text3.text)
方法2:val(text3.text, true)
第一方法(預設)從左開始取數字,當遇到非數字時退出
第二方法是取得所有包含的數值
函式如下:
function val(numstr as string, optional sall as boolean)
'val(numberstring, [false|true])
if isnull(numstr) or numstr = "" then
val = 0: exit function
end if
dim i, ii, b
const n = "-.0123456789"
if vartype(sall) <> 11 and vartype(sall) <> 2 then
sall = false
else
sall = cbool(sall)
end if
for i = 1 to len(numstr)
ii = mid(numstr, i, 1)
if sall = true then '取出所有數字
if instr(1, n, ii) > 0 then
val = val & ii
b = isnumeric(val)
if i > 1 then
if b = false or right(val, 1) = "-" then
val = left(val, len(val) - 1)
end if
end if
end if
else '遇到非數字時退出
if instr(1, n, ii) = 0 then
exit for
else
val = val & ii
b = isnumeric(val)
if i > 1 then
if b = false or right(val, 1) = "-" then
val = left(val, len(val) - 1)
exit for
end if
end if
end if
end if
next
if isnumeric(val) then
val = cdbl(val)
else
val = 0
end if
end function
有關駱駝的知識
3樓:唐建軍
駱駝的耳朵裡有毛,能阻擋風沙進入
駱駝有雙重眼瞼和濃密的長睫毛,可防止風沙進入眼睛駱駝的鼻翼還能自由關閉。
駱駝的腳掌扁平,腳下有又厚又軟的肉墊子,使駱駝在沙地上行走自如,不會陷入沙中。
VB60程式設計有何特點,簡述VB60的主要特點
物件導向,視覺化強,易學,易懂,有時只要操作物件或控制元件就能完成複雜的程式設計的,但是vb6.0不適合進行遊戲,病毒,系統等程式設計 什麼都能行 什麼都不精 不是我說的 是軟體界的評價 簡述vb6.0的主要特點.1 vb的中心思想就是要便於程式設計師使用,無論是新手或者專家。vb使用了可以簡單建立...
VB2019與VB6 0的異同,VB2005與VB6 0的異同?
現在有vs2008的beta版本 不同!差別很大。換句話可以說是兩種不同的語言了到了.net了以後把以前vb6的很多地方改得都不成樣子了。已經沒有vb的味道了,為了適應vc語言的框架vb.net已經變成了半c半vb的怪語言了。讓我從qb用過來的人很傷心。很多vb最經典的東西都沒了。如 vb函式的返回...
vb6 0中MessageBox怎麼用
很簡單比如 private sub command1 click if text1.text 20100344 thenmsgbox 登陸成功 shell c documents and settings administrator 桌面 登入系統元件 bin bg1.exe endelse msg...