背单词vb程序设计

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程序设计，英文单词背诵系统，要求:单词添加 可以向单词库中添加单词及中文意思，并将其存在文件中，

1. 先设计文件的格式，即怎么存储词汇，词汇类型，词汇的意思

2. 设计程序，比如怎么背单词，随机抽取，还是顺序背，是否要有用户输入，等等