【vb试题】求vb制作选择题代码我想用vb做4道选择题(每道题4个...
答案:2 悬赏:80 手机版
解决时间 2021-01-27 01:18
- 提问者网友:锁深秋
- 2021-01-26 12:59
【vb试题】求vb制作选择题代码我想用vb做4道选择题(每道题4个...
最佳答案
- 五星知识达人网友:玩世
- 2021-01-26 13:30
【答案】 控件列表:
label1
label2
label3
label4
(以上为题目方框)
frame1
frame2
frame3
frame4
(以上为4题的选择内容框)
option1
option2
option3
option4
option5
option6
option7
option8
(以上为单选题按钮)
check1
check2
check3
check4
check5
check6
check7
check8
(以上为多选题按钮)
command1
(确认按钮)
(假设单选题都是第1个对,多选题都是第1和2对
private sub command1_click()
if option1=false then
msgbox 第1题错了
elseif option5=false then
msgbox 第2题错了
elseif check1.value=0 or check2.value=0 or check3.value=1 or check4.value=1 then
msgbox 第3题错了
elseif check5.value=0 or check6.value=0 or check7.value=1 or check8.value=1 then
msgbox 第4题错了
else
if msgbox (退出吗)=vbOK then
unload me
end if
end if
end sub
label1
label2
label3
label4
(以上为题目方框)
frame1
frame2
frame3
frame4
(以上为4题的选择内容框)
option1
option2
option3
option4
option5
option6
option7
option8
(以上为单选题按钮)
check1
check2
check3
check4
check5
check6
check7
check8
(以上为多选题按钮)
command1
(确认按钮)
(假设单选题都是第1个对,多选题都是第1和2对
private sub command1_click()
if option1=false then
msgbox 第1题错了
elseif option5=false then
msgbox 第2题错了
elseif check1.value=0 or check2.value=0 or check3.value=1 or check4.value=1 then
msgbox 第3题错了
elseif check5.value=0 or check6.value=0 or check7.value=1 or check8.value=1 then
msgbox 第4题错了
else
if msgbox (退出吗)=vbOK then
unload me
end if
end if
end sub
全部回答
- 1楼网友:未来江山和你
- 2021-01-26 14:39
对的,就是这个意思
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯