vb选择题代码

『壹』 求vb代码（就像做测试题，做完一题按 下一题 的按钮，然后可以做下一题了。）

设定题库,可以是数据库也可以是文档.
题库的属性至少包括:ID,题名,题目内容文本,答案(选择题的话分为选项和标准答案)
窗体设置变量记录当年题目的ID,你那个按钮视情况刷问题的文本框就行了.

『贰』 用vb做一个选择题

DimSAsString
PrivateSubCommand1_Click()
S=S&Command1.Caption
EndSub
PrivateSubCommand2_Click()
S=S&Command2.Caption
EndSub
PrivateSubCommand3_Click()
S=S&Command3.Caption
EndSub
PrivateSubForm_Click()
Cls
PrintS
S=""
EndSub
PrivateSubForm_Load()
Command1.Caption="周一"
Command2.Caption="开心"
Command3.Caption="伤心"
EndSub

如图所示 点击完按钮后 单击窗体 显示出内容

『叁』 vb选择题

答案应该是D
a和b两个变量均在Command1_Click中定义，即均为局部变量
调用形式为Call S1(a,b)，在S1过程的定义形式中x变量因用ByVal定义，所以按值传递，即在主程序中a变量的值传递给过程中的x变量后，x变量的值不传递给主程序的a，所以a变量的值仍然为20；
在S1过程的定义形式为y变量前没有用任何形式，因调用时用b变量形式，定义时用y变量形式，且y前面没有任何形式，是按地址传递参数，即主程序中b=10，传递给S1过程中的y变量，在过程中y变量的值发生改变后，再传递给主程序中的b变量。
把a=20和b=10传递给x和y，即x＝20，y＝10，在S1过程中，x=x+y后x的值变成30，经y=y+x，因y=10,x=30，则新的y的值变成40，同时y的值传递给主程序b变量，即b变量也是40
答案：D

『肆』 VB 编写程序（选择题）

建立多个窗体，每个窗体一题。
选项用optionbutton 控件数组，判断的时候方便点。
单击下一题，
判断选择的是哪个按钮，判断是否正确，或者是否选中，
进行相应的累加。这个累加变量用模块级的。在标准模块中定义。
然后，显示下一个窗体，卸载本窗体。
当全部答完之后用MSGBOX提示答对，或者答错的信息。

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

既然是选择题，那肯定有很多题，你可以在页面当中添加一个“下一题”的按钮，再把这个按钮的TabIndex属性设置为0，这样在显示页面时，默认选中的是“下一题”的这个按钮，这样的页面才比较最合理。
PS:在做选择题这样的程序时，最好采用数据库编程，就是将题目和答案都放在数据库中，每次执行时，题目都是从数据库中提取，这样即使题目有上百题，VB中只要有一个界面就行了，这样更加方便。

『陆』 用VB做一个选择题系统

Private Type utQuestion
Description As String '问题描述
Option(2) As String '备选答案
Answer As Integer '正确答案的序号（0-2）
End Type
Dim Questions(19) As utQuestion, id As Integer, answer As Integer

Private Sub Form_Load()
Dim i As Integer
'问题初始化从下一行开始
With Questions(0)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入：0、1、2的其中1个
End With
With Questions(1)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入：0、1、2的其中1个
End With

With Questions(2)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入0、1、2
End With
'……
With Questions(19)
.Description = "问题描述内容"
.Option(0) = "备选答案1"
.Option(1) = "备选答案2"
.Option(2) = "备选答案3"
.Answer = 0 ‘按实际情况输入0、1、2
End With
'问题初始化到上一行结束

ShowNext 0 '显示第1个问题
End Sub

Private Sub ShowNext(ByVal Index As Integer)
'改变问题: Index = 0 To 19
Dim i As Integer
With Questions(Index)
AskContent = “1、" & .Description 'AskContent是Label控件的Name
For i = 0 To 2
AnswerItems(i).Value = False
AnswerItems(i).Caption = Chr(i+65) & "、" & .Option(i) 'AnswerItems是Option控件数组的Name
Next
End With
answer = -1
End Sub

Private Sub Answers_Click(Index As Integer)
answer = Index '获取答案序号
End Sub

Private Sub Submit_Click() 'Submit是CommandButton控件的Name
If id >19 Then
MsgBox "已完成全部题目！"
Exit Sub
End If
If answer < 0 Then
MsgBox "请选择答案后在单击【确定】按钮！"
Else
If answer = Questions(id).Answer Then
id = id + 1
ShowNext id
Else
MsgBox "回答错误，正确答案是【" & Choose(Questions(id).Answer+1, "A","B","C") & "】"
End If
End If
End Sub

『柒』 求VB 各类题目 代码 初学者的!

这里有vb的二级考题和答案：

http://www.examda.com/ncre2/

还有这里http://heyingworld.blogchina.com/4876860.html

具体的题目是：

VB二级试题
关键词： VB二级试题

四川省普通高等学校计算机应用知识和能力
第十九次等级考试
二级（Visual Basic）笔试试卷
第一部分 软件技术基础(共15分)
一、判断是非（1分/小题，共10分）
1、 数组是一种固定长度的线性表，可以对数组进行插入和删除运算
2、 白盒测试时，测试者不考虑程序的内部结构特征
3、 对线性表中的数据进行二分查找，必须要求数据元素有限且有序
4、 内存管理技术中，每个分区的地址是连续的
5、 文件的目录结构是一种线性表
6、 面向对象的程序设计中，对象的动作取决于发送给该对象的消息
7、 虚拟设备是指将大容量的共享设备的一部分空间用来代替实际的独占设备
8、 在结构化程序设计中，N-S图是用于详细设计的工具之一
9、 在操作系统的设备管理中，打印机被看成是一种共享设备
10、分时操作系统的主要特征之一是提高计算机系统的实时性
二、单项选择题（1分/小题，共5分）
1、在排序法中，从未排序序列中依次取出元素，与已排序列中的元素做比较，将其放入已经排序序列的正确位置称为（ ）
A）选择排序 B）快速排序 C）插入排序 D）冒泡排序
2、有X、Y、Z三个元素依次入栈，不可能的出栈的顺序是（ ）
A）Z、Y、X B）Z、X 、Y C）Y、X、Z D）X、Y、Z
3、进程的状态是可以转换的，而以下哪个状态转换是不可能的( )
A）就绪状态-->执行状态 B）执行状态-->就绪状态
C）阻塞状态-->就绪状态 D）等待状态-->执行状态
4、线性链表的地址（ ）
A）必须连续 B）部分地址必须连续 C）一定不连续 D）连续与否都可以
5、在软件测试中，（ ）主要分析程序的内部结构。
A）白盒法 B）黑盒法 C）因果图法 D）错误推测法
第二部分
Visual Basic语言程序设计
一、单项选择题（1分/题，共10分）
1、在Visual Basic中，窗体文件的扩展名为（ ）
A）EXE B）BAS C）FRM D）VBP
2、表达式8+2*3^2\9/8-3 mod 2的结果为（ ）
A）25 B）24 C）7 D）7.25
3、从键盘上输入两个字符串，分别保存到变量Str1和Str2中，确定第二个字符串在第一个字符串中起始位置的函数是（ ）
A）Left B）Mid C）String D）Instr
4、若X是一个正实数，能对X的第3位小数进行四舍五入的表达式是（ ）
A）0.01*Int(100*(x+0.05)) B）0.01*Int(100*(x+0.005))
C）0.01*Int(x+0.05) D）0.01*Int(x+0.005)
5、下面四个语句中能打印显示20*30字样的是（ ）
A）pint “20*30” B）print 20*30
C）print chr(20)+”*”+chr(30)D） D）print Val(“20”*Val(“30”)
6、变量在窗体模块中申明为公共的，下列关于变量的陈述哪条是正确的（ ）
A）可以从项目的任何打模块中存取变量
B）可以在窗体的任何地方存取变量，而不是在窗体模块外
C）只能在同一个项目的其它窗体模块中存取变量
D）变量不能在窗体模块中申明为公共的
7、对一个窗体对象，其最先发生的事件是（ ）
A）Click B）DbClick C）Load D）UnLoad
8、以下能触发文本框Change事件的操作是（ ）
A）文本框失去焦点 B）文本框获得焦点
C）设置文本框的焦点 D）改变文本框的内容
9、若要使标签控件显示时覆盖其背景内容，要设置其BackStyle属性的值为（ ）
A）0 B）1 C）2 D）3
10、下面对控件数组叙述正确的是（ ）
A）在窗体上添加第二个相同类型的空间时，VB不会提示创建一个空间数组
B）控件数组使用Index属性来标识下标，其范围从0开始
C）控件数组使用的资源比用几个单独同样的控件占用的更多
D）如果有一个按钮叔祖，按任一按钮不会调用相同的Click事件过程
二、阅读分析程序（3分/题，共45分）
1、阅读下面的程序
Option Explicit
Dim n As Integer, L As Integer, I As Integer, J As Integer
Dim a() As Integer
n = InputBox("请输入一个整数")
ReDim a(1 To n)
a(1) = 1: a(2) = 2: a(3) = 3: L = 4
L1: For I = 5 To n
For J = 2 To L - 1
If I Mod a(J) = 0 Then
Exit For
End If
L2: Next J
L3: If J > L - 1 Then a(L) = I: L = L + 1
Next I
L4: For I = 1 To L - 1
Print a(I);
Next I
L = L - 1
Print " L="; L
End Sub
（1）程序运行后点击“Command1”，如果在输入框输入20，输出的结果为（ ）
A）1，2，3，5，7，11，13，17，19，L=9
B）1，3，5，7，9，11，13，15，17，L=19
C）1，2，3，4，5，……..18，19，L=19
D）1，2，3，4，5，……..18，19，20，L=20
（2）上述程序中语句“Dim a( ) as Integer”的功能是（ ）
A）定义a是11个元素的整形数组 B）定义一个动态数组
C）定义了一个静态数组 D）定义了a个整形变量
（3）当执行语句“Exit For”后，程序流程将( )继续执行
A）从语句标号L1处 B）从语句标号L2处
C）从语句标号L3处 D）从语句标号L4处
2、阅读下面的程序
Option Explicit
Private Sub Command1_Click()
Dim StrPassword As String
Dim I As Integer
For I = 1 To 3
StrPassWord = InputBox("Password")
If StrPassWord = "123" Then
LLL: Exit For
End If
Next I
If I = 4 Then
MsgBox "你不是合法用户"
Else
MsgBox "欢迎你"
End If
End Sub
（1）该程序的作用是（ ）
A）用户输入3次正确口令”123”，才显示“欢迎你”，输入3次错误口令才显示“你不是合法用户”
B）用户输入1次正确口令”123”，才显示“欢迎你”，输入1次错误口令才显示“你不是合法用户“
C）用户输入1次正确口令”123”，才显示“欢迎你”，输入3次错误口令才显示“你不是合法用户“
D）用户输入1次出错口令”123”，才显示“欢迎你”，输入3次正确口令才显示“你不是合法用户“
（2）如果将LLL处的语句去掉，则（ ）
A）和原来的程序效果一样
B）用户必须输入3次正确口令后，才会显示“欢迎你“
C）用户必须输入3次口令，且输入任何口令都显示“欢迎你“
D）用户必须输入3次口令，且输入任何口令都显示“你不是合法用户“
3、阅读下面的程序
Private Sub Form_Click()
Dim a(2, 4) As Integer, b(4) As Integer
Dim i As Integer, J As Integer
Do While i <= 4
a(1, i) = a(1, i) + 2 * i - 1
a(2, i) = a(2, i) + 12 - 2 * i
i = i + 1
Loop
For i = 1 To 2
For J = 1 To 4
Print a(i, J);
Next J
Print
Next I
L1: i = 0
Do While i <= 4
b(i) = a(1, i) + a(2, 4 - i)
Text1.Text = b(i)
i = i + 1
Loop
End Sub
（1）程序执行到L1语句处输出的结果为（ ）
A）1 3 5 7 B）7 5 3 1
10 8 6 4 10 8 6 4
C）10 8 6 4 D）4 6 8 10
7 5 3 1 1 3 5 7
（2）本段程序执行完成后，数组元素b(2)的值为（ ）
A）3 B）7 C）11 D）15
（3）本段程序执行完成后，显示在文本框中的结果是（ ）
A）19 17 15 11 B）19 C）15 D）3
4、在窗体上设计有文本框TxtInput和按钮cmdTest，且TxtInput.Text=”Visual basic is easy“，并有如下代码：
Option Explicit
Option Base 1

Private Sub cmdTest_Click()
Dim strS$, i%, j%, n%, stra$, strb$, count%, t$, strt$()
strS = TxtInput
n = Len(strS)
ReDim strt(n)
For i = 1 To n
stra = Mid(strS, i, 1)
strb = Mid(strS, i + 1, 1)
If strb = "s" Then
If stra >= "a" And stra <= "z" Then
count = count + 1
strt(count) = stra + strb
End If
End If
Next i
For i = 1 To count
For j = 1 To count - i
If strt(j) < strt(j + 1) Then
t = strt(j): strt(j) = strt(j + 1): strt(j + 1) = t
End If
Next j
Next i
For i = 1 To count
Print strt(i)
Next i
Text1.Text = count
End Sub
（1）程序运行后，count的值应为（ ）
A）0 B）2 C）4 D）6
（2）程序运行后，窗体上显示的结果为（ ）
A）basic Visual wasy is B）is is as as
C）is as is as D）as as is is
（3）Option Explicit的作用是（ ）
A）表明此模块内部变量必须先声明后使用
B）表明此模块没有通用过程
C）表明此模块的通用过程不能被其他模块调用
D）表明此模块变量不声明可以直接使用
（3）以下关于语句“Option Base 1”正确的说法是（ ）
A）其功能是知道指定数组的默认上界 B）其功能是知道指定数组的默认下界
C）其功能是定义动态数组 D）其功能是定义静态数组
5、阅读下面的程序
Option Explicit
Option Base 1
Private Type Abc
A As Integer
End Type
Private Sub Form_Click()
Dim recAbc As Abc
Dim arrA(4, 4) As Integer
Dim intI As Integer, intJ As Integer, intN As Integer
Open "abc.txt" For Random As #1
For intI = 1 To 4
For intJ = 1 To 4
intN = intN + 1
recAbc.A = intN
Put #1, , recAbc
Next intJ
Next intI
Close
Open "abc.txt" For Random As #1
For intJ = 1 To 4
For intI = 1 To 4
Get #1, intI * intJ, recAbc
arrA(intI, intJ) = recAbc.A
Next intI
Next intJ
Text1.Text = arrA(3, 2)
Close
For intI = 1 To 4
For intJ = 1 To 4
Print Tab(intJ * 3); Format(arrA(intI, intJ), "###");
Next intJ
Next intI
End Sub
（1）程序中的“abc.txt”文件在第一次打开时是按（ ）方式打开的
A）顺序文件读 B）顺序文件写 C）随机文件 D）二进制文件
（2）数组arrA完成赋值以后，数组元素arrA(3,2)的值为（ ）
A）1 B）7 C）6 D）4
（3）程序运行后在窗体上输出的结果为（ ）
A）1 2 3 4 B）1 2 3 4
5 6 7 8 2 4 6 8
9 10 11 12 3 6 9 12
13 14 15 16 4 8 12 16
C）1 5 9 13 D）1 2 3 4
2 6 10 14 2 3 4 5
3 7 11 15 3 4 5 6
4 8 12 16 4 5 6 7
三、程序填空题（2分/空，共30分）
1、下面函数的功能是：求变量s（s=a+aa+aaa+aaaa+….）的值，其中，a为一个0~9的数字，总共累积a项，例如：
当a=3时，s=3+33+333 （共累积3项）
当a=5时，s=5+55+555+5555+55555（共累积5项）
请完善程序：
Public Function calc(a As Double)
s = a
t = a
For i = 2 To ①
t = ②
s = s + t
Next i
Print s
End Function
2、下面程序是用“冒泡”法将数组a中的10个整数按升序排序，并将排好序的结果显示在文本框中，请完善程序。
Option Explicit
Option Base 1
Private Sub Form_Click()
①
Dim i%, j%, t%
Text1.Text = ""
a = Array(345, 3, 65, 24, 765, 32, 56, 421, 54, 235)
For i = 1 To 9
For j = i To ②
If ③ Then
t = a(j)
④
a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Text1.Text = Text1.Text & " " & a(i)
Next i
End Sub
3、下面程序的功能是将一个整数转化为数值字符串，例如123转换为”+123“。
Private Sub NtoC(ByVal n!, strc As String)
Dim sign As Boolean, i%, a%, count%, temp%(100)
sign = False
If n < 0 Then sign = True: n = ①
Do While n > 0
a = ②
n = n \ 10
count = count + 1
temp(count) = a
Loop
If sign Then strc = "-" Else strc = "+"
For i = count To 1 Step -1
strc = ③
Next i
End Sub
4、从键盘上输入任意一个整数x，将其插入到一个按升序排列的整数数组中，并保证数组在插入之后仍按原来的升序排列，请填写完整程序。
Option Explicit
Option Base 1
Const n = 10
Private Sub Form_Click()
Dim a
Dim i As Integer, j As Integer, x As Integer
a = Array(1, 3, 4, 5, 9, 15, 22, 28, 30, 60)
For i = 1 To n
Print a(i)
Next i
Print
x = InputBox("输入一个整数x：")
ReDim Preserve a(n + 1)
For i = n To 1 Step -1
If ① Then
a(i + 1) = a(i)
Else
②
Exit For
End If
Next i
③
For i = 1 To n + 1
Print a(i) & " ";
Next i
End Sub
5、下面程序实现当“单击”命令按钮cmdRead从文件”List.txt“中读入行数据并写入一个列表框中，文件中的每一行在列表框中占一个选项，请完善程序。
Private Sub cmdRead_Click()
Dim strList As String
Dim intFileNum As Integer
intFileNum = FreeFile()
Open App.Path + "\List.txt" For Input As #intFileNum
do until ①
Line Input #intFileNum, strList
List1.AddItem ②
Loop
③
End Sub

『捌』 选择题的VB编程

不知道你的具体要求，单选题四个选项分别用optionbutton建立四个控件，多选题用checkbox建立四个控件，用于记录答案选择。
可以先对4个optionbutton初始化，如下代码
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
然后，建立一个Button按钮，用来实现判卷的功能。然后在Button里写如下代码：
Private Sub Command1_Click()
If Option1.Value = True And (Check1.Value = 1 And Check2.Value = 1) Then
MsgBox "都答对了！您的分数10分。", vbOKOnly + vbInformation
Else
MsgBox "答错了！您的分数0分。", vbOKOnly + vbInformation
End If
End Sub

基本上就是这个思路，可以根据你的实际再进行修改、微调

『玖』 vb选择题的编程代码.

Private Sub Command1_Click()
If Option1.Value = True Then MsgBox "AMAZING!"
If Option2.Value = True Then MsgBox "AMAZING!"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
End Sub