三九宝宝网宝宝教育智力培养

急求VB课程设计代码课题是打字游戏!

01月02日 编辑 39baobao.com

[电子商务毕业课题设计]设计课题:商务网站管理信息系统毕业设计 目的:解决企事业单位及商家全套网络信息化服务 意义: 精确、简化企业内部管理,提高工作效率;扩大市场范围、营造商机、增加企业知名度;有...+阅读

我也是网上下下来自己学习用的

'开始打字

Private Sub start_type_Click()

'读如句子

ScaleMode = 3 '以象素为单位

If deforescrapname <> scrapname Then '同一篇不能显示2次

Dim i As Integer

Debug.Print mode

If mode = False Then

Close #1

If Right(App.Path, 1) <> "\" Then

Open App.Path + "\" + scrapname For Input As #1

deforescrapname = scrapname

Debug.Print scrapname

Else

Open App.Path + scrapname For Input As #1

deforescrapname = scrapname

End If

'MsgBox "fds"

mode = True

End If

'卸载动态加如的label

If mode_label = True Then

For i = 1 To 5 Step 1

Unload Label1(i)

Unload RichTextBox1(i)

char_total = 0

Next i

mode_label = False

End If

i = 1

Dim jz As String

If mode_label = False Then

Do While Not EOF(1)

If i > 5 Then

Exit Sub

End If

jz = Input$(60, #1)

'加载label

Load Label1(i)

Label1(i).Caption = jz

Label1(i).FontSize = 12

Label1(i).FontBold = True

Label1(i).Width = Picture1.Width

Label1(i).Left = 20 / 15

Label1(i).Top = (1000 * i) / 15

Label1(i).Visible = True

Load RichTextBox1(i)

RichTextBox1(i).Font.Size = 12

RichTextBox1(i).Font.Bold = True

RichTextBox1(i).Left = Label1(i).Left - 2

RichTextBox1(i).Top = Label1(i).Top + Label1(i).Height + 1

RichTextBox1(i).Width = Label1(i).Width - 20

RichTextBox1(i).Visible = True

RichTextBox1(1).SetFocus

i = i + 1

'Debug.Print currx, curry

'MsgBox "sdfs"

'Debug.Print i

mode_label = True 'label以动态加在

Loop

End If

Else

MsgBox "同一篇不能显示2次"

End If

End Sub

以下为关联文档:

幼儿园如何上好一节美术课研修课题美术课在幼儿教育中作为副科而不被重视,其实一节好的美术课,学生受益良多,如何上好美术课。对美术老师而言,不仅要自己会,还要善于把知识和技能传授给学生,所以老师必须学习教学理...

幼儿特色教育美术的科研课题有哪些关于这方面的课题包括中小学美术课应解决的问题、从激发兴趣入手培养幼儿的绘画能力、如何正确对待儿童美术素质教育、浅谈中小学美术绘画技能的训练、让学生在主动参与绘画...

怎样写课题开题报告有范文吗展开全部教育教学讲座九之十四(课题开题报告的写作要领) 四川省荣县教育教学研究室主任 钟炜 编者按:本人对“教育教学讲座”分为九个系列:一备课研讨、二课例分析、三听课评课...

vb打字练习应用程序跪求高手谢谢了Dim RNEWALLSTRING As String '合并字符串,此时的字符串已经不包换换行符和空格Dim ER As IntegerPrivate Sub Command1_Click() '注意len(vbcrlf)=2Timer1.Enabled = TrueDim...

怎样用VB编写打字小游戏我2年前写的,有点幼稚。别见笑VERSION 5.00Begin VB.Form Form1 AutoRedraw = -1 'True Caption = "打字游戏 小游戏而已" ClientHeight = 4800 ClientLeft = 60 ClientTop = 7...

vb的打字小游戏用一个标签label1放字母添加一个计时器,设置时间为1000毫秒再添加一个全局变量,用来表明字母有没有打对再设一全局变量,用来计分再添加一个命令按钮,用来开始游戏dim flag%,scor...

怎样用VB做打字游戏??Dim t As Integer Dim s(1 To 5, 1 To 5) As String '用二维数组s()来存放打字数据 Dim n As Integer Dim r As Integer Private Sub Command1_Click() If t = 0 Then MsgBox...

求一款vb打字游戏Dim m As IntegerDim n As IntegerPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTimer1.Interval = 100ElseFor j = 0 To 9If Label1(j).Caption =...

VB程序:字母从窗体下落按键盘上对应字母后它消失这个打字一个Label1,一个Timer控件 Dim nDownspeed As Integer '下落速度Dim sString As Integer '下落的字符Private Sub huanyuan()RandomizeWith Label1 .AutoSize = True .Left =...

推荐阅读
图文推荐