求VB源码

来源：百度知道 编辑：UC知道 时间：2024/05/21 07:55:35
随机出现一到十任意一汉字，与10个上显示“壹贰。。。拾”的10个按钮相关联，并判断对错的一个小练习工具源码和程序

有请发至邮箱boubouo@163.com

来件者请注明百度ID，便于给分

同时我已上传VB的源文件



右击上面 目标另存为 下载到本地后将jpg扩展名改成rar 即可解压 Dim arrGB, arrBig5, vState As Boolean, vid%Private Sub Command1_Click(Index As Integer) If Index = vid Then MsgBox "答对了", , "恭喜" Else MsgBox "答错了", , "加油" End If vState = False Text1.Text = "请单击窗体,开始抽题" Call init(False)End SubPrivate Sub Form_Click() If vState True Then Randomize vid = Int(Rnd * 8) + 1 Text1.Text = arrGB(vid) Call init