用vb编写一个选择题的程序怎么弄啊

既然是选择题，那肯定有很多题，你可以在页面当中添加一个“下一题”的按钮，再把这个按钮的TabIndex属性设置为0，这样在显示页面时，默认选中的是“下一题”的这个按钮，这样的页面才比较最合理。

PS:在做选择题这样的程序时，最好采用数据库编程，就是将题目和答案都放在数据库中，每次执行时，题目都是从数据库中提取，这样即使题目有上百题，VB中只要有一个界面就行了，这样更加方便。

你模拟xcols,ycols分别为m,n；然后，随机数为 Int(Rndm)+1 来模拟m, Int(Rndn)+1模拟n，设置一个二维数组，开始时都设置为0，然后每次选出来一个都设置为1，选出来时要先判断数组的值不为1，为1要重新生成一个随机数座位。

Private Sub Command1_Click()

lap1:

n = InputBox("请输入兑奖号码（七星彩）:")

If Len(n) <> 7 Or Not IsNumeric(n) Then

MsgBox "请输入正确兑奖号码"

GoTo lap1:

End If

s = "": ms = ""

k = 0: Max = 0

For i = 1 To 7

If Mid(Text1Text, i, 1) = Mid(CStr(n), i, 1) Then

k = k + 1

s = s + Mid(CStr(n), i, 1)

If k > Max Then

Max = k

ms = s

End If

Else

s = ""

k = 0

End If

Next

If Max < 2 Then st = "没有中奖"

If Max = 2 Then st = "中六等奖"

If Max = 3 Then st = "中五等奖"

If Max = 4 Then st = "中四等奖"

If Max = 5 Then st = "中三等奖"

If Max = 6 Then st = "中二等奖"

If Max = 7 Then st = "恭喜你中一等奖"

MsgBox st

End Sub

Private Sub Form_Load()

Randomize

Text1Text = ""

For i = 1 To 7

Text1Text = Text1Text & Int(Rnd 10) '产生七星彩中奖号码

Next

End Sub

以上就是关于用vb编写一个选择题的程序怎么弄啊全部的内容，包括:用vb编写一个选择题的程序怎么弄啊、如何用VB制作一个班级座位随机抽取程序、用VB编写一个模拟体彩中奖的过程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！