ldcf.net
当前位置:首页 >> vB题目如何做? >>

vB题目如何做?

软件数据库有87个试题,系统随机选取20个试题,在答题界面,点击Option1控件就可以实现答题操作,答题20个以后,【交卷...

Dim n As Integer, sum As Integer Private Sub Command1_Click() Dim a(20) As Integer List1.Clear Label1.Caption = "" k = 0 If n = 0 Then List2.Clear For i = 1 To 20 a(i) = Rnd * 501 + 100 List1.AddItem a(i) yes = True For j = 2 T...

Private Sub Command1_Click() Dim m% Dim s$, x$ m = Len(Text1.Text) '答案为Text1.Text 3分 For i = 1 To m x = Mid$(Text1.Text, i, 1) If x >= "A" And x = "a" And x

数据量很小,直接算一下就可以了。 当i=0, inta(1)=1 intb(3)=inta(1)=1 当i=1, inta(2)=3 intb(2)=inta(2)=3 当i=2, inta(3)=5 intb(1)=inta(3)=5 退出循环,i的值为3,输出intb(3),即为1

1.用VB编程序设计一个简易的计算器 代码: Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = La...

Dim AA(1 To 10) As IntegerPrivate Sub Command1_Click()List1.ClearList2.ClearFor I = 1 To 10RandomizeAA(I) = Int(Rnd * 89 + 10)List1.AddItem AA(I)Next IEnd SubPrivate Sub Command2_Click()List1.ClearList2.ClearFor I = 1 To 10If ...

把题库作为一个字符串,然后就是对字符串的查找处理问题了!可以使用index,left,right,mid等字符串处理函数! 当输入题目后,就在题库字符串中查找匹配的题目,然后根据字符特征码提取答案出来就好了

这个我可以做,需要的话 联系我哦

具体要求是什么呢? 需要涉及到数据库吗

这个东西任何一个环境都可以轻松做出来,我给你个思路吧: 他是把题目和答案都放在数据库文件里面,然后读取exeback文件,一条一条地读数据就行了,图片也匹配地加载出来, 这个程序不是用VB写的VB写的程序没有frm、vbw、scc、frx后缀原文件是打...

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com