Question

如何用VB语言设计一个抢答器

要求：单击开始按钮，文本框的时间开始倒计时，时间为负数时，计时器关闭。单击停止按钮，计时器关闭，标签框显示抢答题目。

Answer 1

1、首先打开VB程序，新建一个工程。

2、这里我们选择“标准EXE”，单击“确定”按钮。

3、该软件的界面还是比较简洁的，左边是常用的工具箱，右边是相关的属性栏目。先把我们要制作的软件命名，如图，在“caption”后面输入“抢答器”。

4、选择“commandbutton”工具，在目标区域用鼠标拖动画出一个按钮，在属性面板输入按钮上显示的文字。

5、用“label”工具在图中2处画出区域，在3处输入要显示的文字。

6、用“textbox”工具在合适位置画出文本框区域，用来显示你选号的结果。

7、用鼠标双击刚才插入的按钮，输入代码：Private Sub Command1_Click()，Dim a(5) As Integer，Dim b(2) As Integer，For i = 1 To 5        a(i) = Int(Rnd() * (1 + (35 - 1))) + 1 。

8、单击“启动”按钮调试程序。有错误就需要修改，没有错误的话就可以保存了。

Answer 2

'开始按钮
private sub cmdstart_click()
timer1.enabeld = true
end sub

'下面是时钟,在此之前，你需要把他的interval属性设置为1000(1000毫秒，即一秒)
private sub timer1_timer()
txttime.text = val(txttime.text) * 60 '你可以在txttimer内输入倒计时的分钟数
if val(txttime.text) <= 0 then
timer1.enabled = false
txttime.text = "0"
lblQuestion.caption = "这里写要显示的题目！"
end if
end sub

'下面是停止按钮的过程

private sub cmdStop_Click()
timer1.enabled = false
txttimer.text = "0"
lblQuestion.caption = "这里写要显示的题目！"
end if

Answer 3

说的明确一点。。。

Answer 4

说的明确一点。。。