PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0IfTrim(Text1)=""ThenExitSubado_Opensql="selectcontentfromdatawherecontent='"&Text1&"'"NewadoIfado。
RecordCount>=1ThenMsgBox"该内容已存在!",vbExclamationText1=""ExitSubElsesql="insertintodata(content)values('"&Text1&"')"NewadoText1=""EndIfCase1Me。
Clsado_OpenDimi,j,n,k,f()AsIntegern=10'抽题数目ReDimf(1Ton)Fori=1 "selectcontentfromdata"Newadok=Int(Rnd*ado。RecordCount)Forj=1ToiIfk=f(j)ThenGoToGetNumNextjf(i)=kado。
MovekDebug。PrintkPrintado。Fields(0)NextiEndSelectEndSub。
你可以把题目存入到数据为中，在数据为里增加一个整型ID字段，标识题目号，在抽题时，随机产生一个数题目号，再在数据为中抽出相应的题号。例如可以设置如下表：题号，类型，题目内容，答案可以根据随机产生的编号查询出相应的题号。如有疑问可向我求助：151708841@
把题目的文本内容用Insert to这个SQL语句添加到ACCESS数据表的对应字段（字段须为备注类型），然后再用Select语句查询对应的字段内容，再对查询到的内容进行格式性的抽取处理。
答：新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。 然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将D...详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
