急求用vb做打字游戏的代码~好的追加分~~_百度知道
急求用vb做打字游戏的代码~好的追加分~~
一定要符合我的程度的最好能把做的文件发到偶的邮箱里VB是考查课，老师要交期末大作业求VB做的打字游戏，代码，
谢谢啦界面最好好看点，一定要有解释呀
提问者采纳
追加到text1的尾部
if keyascii&lt，在窗体上画两个TextBox.text)+1;字符输入错误;a&你还可以在这个基础上美化界面.mid$(text1.tabindex=0 &#39。
end ifend sub'清空Text2内容
for i=1 to 20 &#39.text=vbnullstring &#39,1)) then keyascii=0;产生一个a~z的字符;随机生成20个字符排列
text1、计时等功能&#39。private sub Form_Load()
randomize timer '清空Text1内容
text2;asc(vba,len(text2;屏蔽当前按键
text1;)) &#39，提示beep声音警报并取消当前键盘操作.text=text1;模拟调用一次text2的键盘操作，使每次运行程序都能获得不同的字符序列
text2;重新设置随机因子，光标定位在text2
Text2_KeyPress 0 &#39.text=vbnullstring '窗体显示后;text2已完成输入（或首次使用刷新）
keyascii=0 &#39，分别是Text1和Text2:beep '&text2键盘操作产生的事件
dim i as long
if len(text1，其内部程序会使text1刷新end subprivate sub Text2_KeyPress(KeyAscii as integer) '给你写个容易理解的吧.text & chr$(int(rnd()*26)+asc(&quot、增加判分.text)=len(text2.text.text) then &#39
其他类似问题
您可能关注的推广回答者：
打字游戏的相关知识
按默认排序
其他1条回答
已发送，应该是很好了、背景音乐，有背景图片，可以加速减速，控制游戏时间、会自动算分并算出玩家的最高分等等我给你我的课程设计吧！老师给我打了90多分，请注意查收，保证你会喜欢
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音 - VB当前位置:& &&&倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音&&网友分享于：&&浏览：141次求一个倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音要代码& 在线等谢了------解决方案--------------------二个文本框T1，T2,T1用来设定时间的，T2用来显示时间。二个按钮C1,C2，C1用来启动计时，C2停止并可以重新设置时间，还要画一个计时器用于计时用Private Sub C1_Click()If T1.Text = && Then MsgBox &请重新输入&, vbCriticalElse T1.Enabled = False Tr1.Enabled = True T2.Text = 0End IfEnd SubPrivate Sub C2_Click()T1.Enabled = TrueTr1.Enabled = FalseT2.Text = 0End SubPrivate Sub Tr1_Timer()If T2.Text = T1.Text Then Beep Tr1.Enabled = False MsgBox &时间到&, vbOKOnly T2.Text = 0Else: T2.Text = T2.Text + 1End IfEnd Sub
------解决方案--------------------VB code
Public JSjs As Integer '计时时间
Public date1 As String
Private Sub Command6_Click()
Timer1.Enabled = True
date1 = &&
Private Sub Form_Load()
Timer1.Enabled = False
'计时10分钟
Private Sub Timer1_Timer()
If date1 = && Then
date1 = Format(Now, &yyyy-MM-dd hh:mm:ss&)
If DateDiff(&n&, date1, Now) &= JSjs Then
MsgBox &时间到&
Timer1.Enabled = False
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
VB6 0 中BEEP函数演奏音乐《粉刷匠》《龙的传人》《六一儿童节》 doc
下载积分：300
内容提示：
文档格式：PDF|
浏览次数：105|
上传日期： 18:19:25|
文档星级：
该用户还上传了这些文档
VB6 0 中BEEP函数演奏音乐《粉刷匠》《龙的传人》《六一儿童节》 doc.PDF
官方公共微信VB中代码问题
VB中代码问题
Dim ww As Integer&&& Dim hh As Integer&&& &&& ww = Text9.Text&&& hh = Text10.Text&&& &&& For i = 1 To hh&&&&&&& For j = 1 To ww&&&&&&&&&&& Get #1, , a(i, j)&&&&&&&&&&& a(i, j) = a(i, j) - 48&&&&&&& Next j&&&&&&& Get #1, , j&&&&&&& If j && 13 Then&&&&&&&&&&& MsgBox "源文件“" & fname & "”格式不正确或与要求不符", , "提示"&&&&&&&&&&& Beep&&&&&&&&&&& Close #1&&&&&&&&&&& GoTo err_handle&&&&&&& End If&&&&&&& Get #1, , j&&&&&&& If j && 10 Then&&&&&&&&&&& MsgBox "源文件“" & fname & "”格式不正确或与要求不符", , "提示"&&&&&&&&&&& Beep&&&&&&&&&&& Close #1&&&&&&&&&&& GoTo err_handle&&&&&&& End If&&& Next i&&& Close #1
帮我详细讲解下每句代码的大概意思，谢谢啦
这个程序不完整,估计是这样的:运行的时候在文本框text9和text10里输入一个二维数组的下标值,比如 5 6,然后从文件#1(打开的过程没有,前面应该有定义fname的)中读出数据到数组 a(6,5) 中,每读完一个数组行,判断最后二个数值是不是 13& 和 10 (我觉得应该是13和 10的ascii码,以判断是否是行结束标志),如果不是就 beep报警并转到出错捕捉程序行 err_handle.
也就是说如果你要读取一个 &5行 6列的数据的话,那个文件必须每行只有6个数据,如果文件第一行有七个或者少于6个,就会出错!!
CommonDialog1.ShowOpen&&& fname = CommonDialog1.FileName&&& If fname = "" Then GoTo err_handle&&& &&& &&& Open fname For Random As #1 Len = 2 这些你能懂一些吗？先谢谢你啊
第一行是打开一个文件选择框,就像我们在WORD里点 打开 的那种框子,第二行是把选择的文件赋值给 fnmae(是一个路径,比如 c:\windows\a.txt),然后判断是否为空(如果点取消),如果空就转到出错捕获去.
如果不为空,则打开文件fname作为#1 大概是这样.
的感言：谢谢
其他回答 (2)
我不懂 哈哈
首先定义两个变量hh和ww，这时候将其放到文本框9、10中,之后又定义一个数组，让其上标和下标分别为i和j。这个里面用到了goto语句，一般不推荐使用
相关知识等待您来回答
编程领域专家}