[2017年数学小课题研究开题报告]在数学学习中，学生是学习的主体。在起始阶段学生对数学学习热情高，好奇心强，学习成绩较好。随着时间的推移，有些同学使用正确的学习方法，勤学苦练，因而继续保持优异成绩，进入良性学...+阅读
我也是网上下下来自己学习用的
'开始打字
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
延伸阅读：
我想找一下机械类毕业论文课题包括内容目前国外的机械工程教育正向着复合型人才和工程应用能力培养的趋势发展，学生不仅需要有坚实的数理科学知识，同时需要工程实践方面的训练，强调理解知识、掌握学习的方法、培养独...
电子商务毕业课题设计设计课题：商务网站管理信息系统毕业设计 目的：解决企事业单位及商家全套网络信息化服务 意义： 精确、简化企业内部管理，提高工作效率；扩大市场范围、营造商机、增加企业知名度；有...
有什么好的统计学本科毕业论文课题啊1、论文题目：要求准确、简练、醒目、新颖。 2、目录：目录是论文中主要段落的简表。（短篇论文不必列目录） 3、提要：是文章主要内容的摘录，要求短、精、完整。字数少可几十字，多不超...
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 =...
