上機練習題

1建立乙個簡單的vb程式。要求在窗體上顯示「歡迎登陸vb上機系統」、「請輸入您的學號」和「請輸入登入密碼」，以及兩個等待輸入學號和密碼的文字框和乙個命令按鈕。學號與密碼均為8位（超過8位則不能輸入），密碼的輸入顯示為「*」。

另外窗體上不要最大、最小和關閉按鈕。單擊命令按鈕「確定」時，程式結束。程式執行效果如圖所示。

2 建立乙個簡單的應用程式，單擊窗體，則在窗體上顯示「歡迎使用visual basic！」，雙擊窗體則清除螢幕。

3 教材260頁第5題

4 例題建立乙個允許剪下、複製和貼上的簡單便箋板程式

**如下：

dim st as string

private sub form_load()

= 16

= 10

end sub

private sub command1_click()

st =

= ""

end sub

private sub command2_click()

st =

end sub

private sub command3_click()

= st

end sub

private sub command4_click()

endend sub

5建立乙個簡單的應用程式，其窗體介面如下圖右，單擊放大按鈕，則文字「你好！」放大；單擊縮小按鈕，則文字「你好！」縮小；單擊結束按鈕，則結束程式的執行

6. 實驗教材p24頁的實驗四

7. 編寫程式實現對於給定的兩位數，交換個位和十位數的位置，並把處理後的數顯示在窗體上。

8. 關係運算子的使用

private sub command1_click()

endend sub

private sub command2_click()

= ""

text1 = (text1 = "20060000")

text2 = (text2 = "tjin1234")

end sub

private sub text1_gotfocus()

text1 = ""

end sub

private sub text2_gotfocus()

text2 = ""

= "*"

end sub

9.算術運算子的使用

private sub command1_click()

dim r1!, r2!, r3!, x!

r1 = val(text1): r2 = val(text2): r3 = val(text3)

x = 1 / (1 / r1 * 1 / r2 + 1 / r3)

label5 = "計算結果：" & x

end sub

10 邏輯運算子的使用

編寫乙個程式，具有以下功能：輸入職工的姓名、性別、年齡和職務，判斷他是否到達退休年齡。判斷退休年齡的標準為：

男性大於等於60歲，女性大於等於55歲或職務為「工人」的大於等於50歲。專案檔案為「sy2-3判斷退休」。

11. 建立乙個簡單的應用程式，其窗體介面如下，單擊輸入按鈕，則將游標定位在第乙個文字框；單擊大寫轉小寫按鈕，則將文字框1中的大寫字母轉化為小寫顯示在文字框2中；單擊小寫轉大寫按鈕，則將文字框1中的小寫字母轉化為大寫顯示在文字框3中。

private sub command2_click()

text2 = lcase(text1)

end sub

private sub command3_click()

text3 = ucase(text1)

end sub

private sub text1_gotfocus()

text1 = ""

end sub

12．介面如下，單擊出題按鈕，產生任意兩個[1，100]之間的隨機整數，單擊計算按鈕，求這兩個數的和。

private sub command1_click()

randomize

= int(rnd * 100 + 1)

= ""

end sub

private sub command2_click()

= val( + val(

end sub

13 教材263頁第六題

使用mid, left, right函式，在text1文字框中輸入一字串，在label1, label2, label3標籤顯示如圖的效果

private sub form_click()

label1 = left(text1, 11)

label2 = mid(text1, 12, 6)

label3 = right(text1, 5)

end sub

14. 教材263頁第五題

private sub command1_click()

text1 = int(rnd * 900 + 100)

end sub

private sub command2_click()

dim x%, x1%, x2%, x3%

x = val(text1)

x1 = x mod 10分離出的個位數

x2 = (x mod 100) \ 10分離出的十位數

x3 = x \ 100分離出的百位數

label1 = x1 * 100 + x2 * 10 + x3

end sub

15. 設計乙個數字時鐘錶，執行時單擊窗體，顯示當前的年、月、日、星期幾及時間，執行介面如下

private sub form_click()

= year(date)

= month(date)

= day(date)

= weekday(date) - 1

= time

end sub

16．課本p56例3.1 字串的替換

private sub command1_click()

i = instr(text1, text2) '在text1中查詢出現text2內容的位置

k = i + len(text2定位右子串的起始位置

ls = left(text1, i - 1取左子串

text4 = ls + text3 + mid(text1, k) ' 左子串連線替換為子串連線右子串實現替換

text4 = left(text1, i - 1) + text3 + mid(text1, k)

end sub

private sub command2_click()

text4 = replace(text1, text2, text3)

end sub

private sub command3_click()

i = shell("c:\program files\microsoft office\office10\", 1)

end sub

17 用print函式列印下列圖形

18 用inputbox輸入乙個正實數，用print方法在一行上顯示出它的平方和平方根、立方和立方根，每個數保留3位小數，其間有間隔。課本p264頁8題

private sub form_click()

x = val(inputbox("輸入一正實數", "計算", 0))

pf = format(x * x, "0.000")

pfg = format(sqr(x), "0.000")

lf = format(x * x * x, "0.000")

lfg = format(x ^ (1 / 3), "0.000")

print "平方為:"; pf; space(2); "平方根為:"; pfg; space(2); "立方為:"; lf; space(2); "立方根為:"; lfg

end sub

19 賦值語句的使用，設定實現兩個變數交換的程式

private sub command1_click()

dim a as integer, b as integer, c as integer

a =b =c == = c

end sub

20 inputbox函式的使用

private sub command1_click()

dim h as integer, f as integer

dim x as integer, y as integer

h = val(inputbox("請輸入總的頭數：", "輸入框"))

f = val(inputbox("請輸入總的腳數：" + chr(13) + chr(10) + "注意：腳的數目在2h與4h之間", "輸入框"))

x = (4 * h - f) / 2

y = (f - 2 * h) / 2

= x & "只"

= y & "只"

end sub

21 （雙分支結構）用條件語句實現：從文字框中輸入乙個數，單據判斷按鈕判斷它能否同時被3、5、7整除，若能整除，則用另外乙個文字框顯示「能同時被3、5、7整除」，否則顯示「不能整除」。

上機練習題

VB上機練習題

EXCEL上機練習題

電算化工資系統上機練習題

上機練習題

VB上機練習題

EXCEL上機練習題

電算化工資系統上機練習題

相關推薦