1. vb程序設計試題:設計一個背單詞的界面,讀單詞是以滾動字幕的形式讓單詞出來,這一步如何寫代碼
使用控制項 Timer1 Label1,label2,label3
Private num As Long '用來變換單詞用的
Private word() As Variant '單詞存放的數組
Private Sub Form_Load()
word() = Array("hello", "world", "I am ", "Visusl", "basic") '這里有一個五個單詞的數組
Label1.AutoSize = True '自動調整大小
Timer1.Interval = 100 '調節速度用的
Label1.Caption = word(0) '初始化單詞
'字元挨個漸隱效果
With Label2
.Width = Label1.Width
.Height = Label1.Height
.Caption = ""
.Left = 5000
.Top = Label1.Top
End With
With Label3
.Width = Label1.Width
.Height = Label1.Height
.Caption = ""
.Left = 500
.Top = Label1.Top
End With
End Sub
Private Sub Timer1_Timer()
'向左移動
If Label1.Left > 500 Then '這里是規定左邊界
Label1.Left = Label1.Left - 100 '每次移動100TWip 可以調節
Else
Label1.Left = 5000 '超過左邊界後還原位置
num = num + 1 '同時滲棚數組的變數+1 起到更改單詞的作用棗跡
If num = UBound(word) + 1 Then num = 0 '如凳喊並果單詞全部滾動完畢,則重新開始
Label1.Caption = word(num) '更換單詞
'根據不同長度的單詞來實現隱藏效果
Label2.Width = Label1.Width
Label3.Width = Label1.Width
End If
End Sub
2. VB程序設計,英文單詞背誦系統,要求:單詞添加 可以向單詞庫中添加單詞及中文意思,並將其存在文件中,
先設計文件的格式,即怎麼存儲詞彙,詞彙類型,詞彙的意思
設計程序,比如怎麼背單詞,隨機抽取,還是順序背,是否要有用戶輸入,等等