标题:[求助]如何利用VB6,设计一系列的填空题
只看楼主
hopesa
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-7-24
 问题点数:0 回复次数:4 
[求助]如何利用VB6,设计一系列的填空题

是利用VB6,制造一个填空题,然后累计分数,最后显示出得了多少分/总分

不是设计关于VB6问题的填空题...而是

是用它来设计的填空题``

各位请帮帮忙..我不知道代码..

搜索更多相关主题的帖子: 填空 设计 
2007-07-24 01:19
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
建立文本控件组和答案变量数组

然后循环他们。。。如果和你设置的答案一致就给分数累加,最后把分数输出。

快上课了……
2007-07-24 10:30
昨天
Rank: 1
等 级:新手上路
帖 子:66
专家分:6
注 册:2006-7-12
得分:0 
如果是选择题,四个选项,不同题的不同选项所加的分不同...
那..

Open Sourse
2007-07-24 11:48
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
一样……看他选到是几给对应的分数。只要你的分数和他选的一致就可以。。。分数(题,选项)用个2唯的数组保存。

快上课了……
2007-07-24 18:24
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 


Private Sub Command1_Click()
Dim Mark As Integer, i As Integer
Dim
Answer(3) As String
Answer(0) = "VBP": Answer(1) = "FRM": Answer(2) = "BAS"
For i = 0 To 2
If UCase(Text1(i)) = Answer(i) Then Mark = Mark + 1
Next
Print
"做对了" & Mark & "道T。"
End Sub

快上课了……
2007-07-24 22:04



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-157591-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.440577 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved