www.1862.net > vB开发题库系统

vB开发题库系统

form1:Private Sub Command1_Click()Dim cls2 As Class2Set cls2 = New Class2cls2.getstr2 (CStr(Text1.Text))'MsgBox CStr(cls2.a0)Dim a(10) As Stringa(0) = cls2.a0 'kaohaoa(1) = cls2.a1 'namea(2) = cls2.a2 'sexa(3) = cls2.a3 'ximinga(4) = cls2.

这样不好的..

朋友,给我一份吧,提前谢谢了895716850@qq.com

我郁闷,大学怎么教的学生?技术那么差.写不出东西,还要到处要.给钱,就给源代码

先统计功能在设计数据库然后搭界面最后编代码测试

Dim a, b, c, d, e, f, g, x, y, z, s, mPrivate Sub C1_Click() Timer1.Enabled = True ct.Enabled = True pd.Enabled = True fh.Enabled = True zt.Enabled = True C1.Enabled = False jx.Enabled = True Text4.SetFocusEnd SubPrivate Sub ct_Click() m = m

先建立一个题库,题库中包含各种题型二是录入题库题目三是自动出题,按照要求输出不同的题型祝好运,望采纳.

可以考虑把你的原通用题库加个自动动态生成试题网页功能,然后剩下的事情改用网站做

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

VC上搜索VB第二个就是,包含好多种二级模拟考试系统.2010年3月,免注册,上机和笔试题库,是我找到的最好用的,感觉9月VB肯定能过了.

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com