有關VB的知識,關於VB6 0 基礎知識

2022-11-06 09:00:12 字數 2061 閱讀 9613

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...