[计算机专业基础课程]计算机专业基础课程 悬赏分：0 - 离问题结束还有 14 天 14 小时 我想自学软件技术专业的课程或者网络安全技术，但我知道学计算机技术肯定要学计算机专业的基础课程，但是我只想学...+阅读

Dim h As Integer Dim n As Integer Private Function zi() Randomize If Form1.Option1.Value Then a = Int((122 - 97 + 1) * Rnd + 97) ElseIf Form1.Option2.Value Then a = Int((90 - 65 + 1) * Rnd + 65) ElseIf Form1.Option3.Value Then a = Int((126 - 48 + 1) * Rnd + 48) End If zi = Chr(a) End Function Private Sub Form_KeyPress(KeyAscii As Integer) Dim b As Integer Dim c As Integer b = -1 c = -1 For i = 0 To Label1.Count - 1 If Label1(i).Caption = Chr(KeyAscii) Then If Label1(i).Top >b Then c = i End If End If Next If c >-1 Then Image1.Top = Label1(c).Top Image1.Left = Label1(c).Left Image1.Visible = True Label1(c).Top = -10 Label1(c).Caption = zi h = h + 1 Label2.Caption = ＂当前得分：＂ & h If Form1.Option4.Value Then h = h + 1 ElseIf Form1.Option5.Value Then h = h + 2 ElseIf Form1.Option6.Value Then h = h + 3 End If End if If KeyAscii = 27 Then If MsgBox（＂真的要退出吗＂， vbYesNo） = vbYes Then MsgBox ＂您的得分＂ & h & ＂分＂， ， ＂成绩＂ Unload Form2 Form1.Show End If End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Image1.Visible = False End Sub Private Sub Form_Load() Dim lu As String lu = App.Path If Right(lu, 1)＂/＂ Then lu = lu & ＂/＂ End If lu = lu & ＂3.jpg＂ Image1.Picture = LoadPicture(lu) h = 0 n = 0 For i = 0 To Label1.Count - 1 Label1(i).Top = 0 - 380 * (i + 1) Label1(i).Caption = zi Next End Sub Private Sub Timer1_Timer() For i = 0 To Label1.Count - 1 If Form1.Option4.Value Then If h >100 Then Label1(i).Top = Label1(i).Top + 80 Else Label1(i).Top = Label1(i).Top + 40 End If ElseIf Form1.Option5.Value Then If h >200 Then Label1(i).Top = Label1(i).Top + 120 Else Label1(i).Top = Label1(i).Top + 60 End If ElseIf Form1.Option6.Value Then If h >300 Then Label1(i).Top = Label1(i).Top + 160 Else Label1(i).Top = Label1(i).Top + 80 End If End If If Label1(i).Top >6525 Then n = n + 1 Label3.Caption = ＂掉落个数：＂ & n Label1(i).Top = -10 Label1(i).Caption = zi End If If n = 27 Then If MsgBox（＂掉落的个数已经超过＂ & n & ＂个，是否重新开始＂， vbYesNo） = vbYes Then MsgBox ＂您的得分：＂ & h & ＂分＂， ， ＂成绩＂ Unload Form2 Form1.Visible = True Exit Sub Else MsgBox ＂您的得分＂ & h & ＂分＂， ， ＂成绩＂ End End If End If Next End Sub

以下为关联文档：

培智学校义务教育课程设置实验方案的简介教育部关于印发《盲校义务教育课程设置实验方案》、《聋校义务教育课程设置实验方案》和《培智学校义务教育课程设置实验方案》的通知 教基〔2007〕1号 各省、自治区、直辖...

速求：C课程设计班级人事管理系统！谢谢各位了！你可以看看这个。这个是学籍信息管理系统，实现方式和你的差不多，改一点点就行了。我以前做过一个学生宿舍管理系统，和这个差不多。你自己试着改改看。就改一下变量名称之类的，程...

商务英语专业课程有哪些有的专业设置一般有三种情况：1、专业为主，英语为辅：课程设置以专业课程为主，只在高年级阶段开设旨在帮助学生提高书面英语专业阅读能力的 “经贸文章选读”课程或类似与专业有关...

在新课程下中考化学命题特点有哪些我们如何进行中考化学试卷分析命题 虽然大多数考得是由书本衍生出的题目。但有一些题目还是有涉及到书本的文字内容。基础啊，例如物质的分类，空气中，地壳中，人体内的元素最多的元素是什么，原子结构示意图一定...

新课程理念下教师应怎样备课目前，基础教育课程改革正在不断深入，新的教学理念必然引起我们对教学作全面反思。但课改不能仅停留在观念的变革上，它必须通过课堂教学实践来完成。对学校来讲，对广大教师来讲，最...

请问有什么好的小游戏可以用于培训课程中活跃气氛吗培训游戏：趣味跳绳 内容 大家都跳过绳吧，在玩的时候会发生很多事，不同的人会有不同反应，为什么呢？这是一个典型的团队活动，需要大家共同配合，怎样取得最佳合作效果？这些问题，您是否想...

企业管理培训课程包括哪些企业管理培训课程包括；意志培训、认知培训、技能培训、职业培训等。 1、意志培训 意志培训的形式主要是军训，其目的是为了培养新人的吃苦耐劳的精神、朴素勤俭的作风和团队协...

员工素质培训都有哪些课程职业素质的内涵 不同职业的职业素质表现 企业需要什么样素质的人——团队导向——重标准、整体差异、协同、合作 职业导向——对待上级：职业化的服从、沟通意识 对待同事：职业...

素质教育课程标准浅谈新课程标准下如何推进素质教育 近年来，教育部启动了新一轮基础教育课程改革，这次课改要求我们在总结经验教训的基础上，对语文教学的观念、目标、内容、策略、手段、评价等...