vb大题上机总结

2024-09-04

vb大题上机总结（精选5篇）

篇1：vb大题上机总结

真・vb大题・正式版1.0

**********************************************************************

在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序

运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令

按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。

这个程序不完整，请把它补充完整，并能正确运行。

要求：

去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功

能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盘。

图1

图2 本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt3.frm，在代码窗口中补充如下代码：

Private Sub Sort(a()As Integer)Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer Start = LBound(a)Finish = UBound(a)For i = Finish To 2 Step-1 For j = 1 To Finishlowerbound+1)* Rnd + lowerbound)这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。修改后的主要代码如下：

Private Sub Command1_Click()Text1.Text = “": Text2.Text = ”“ For i = 1 To 10 a(i)= Fix(Rnd * 99 + 1)For j = 1 To i1 Exit For End If（避免取相同的值）

Next j Next i For i = 1 To 10 Text1.Text = Text1.Text + Str(a(i))+ Space(2)（隔两个空格输出下一个）Next i End Sub

Private Sub Command2_Click()Dim num As Integer, i As Integer num = InputBox(”请输入待查找的数“)For i = 1 To 10 If a(i)= num Then

Text2.Text = Str(num)+ ”是数组中的第“ + Str(i)+ ”个值“ Exit For End If Next i If i > 10 Then Text2.Text = Str(num)+ ”不存在于数组中“ End If End Sub 按要求保存文件即完成本题。】

在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、COMEXIT，标题分别为”开始“、”退出“的命令按钮。编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数，并利用该函数求8+88+888+8888的和，结果写入考生文件夹下的wy36.dat文件中。执行完毕”开始“按钮变成”完成“，且无效（变灰）。

【语法

[Public | Private | Friend] [Static] Function name [(arglist)] [As type] [Statements] [name = expression] [Exit Function] [statements] [name = expression] End Function声明Function过程的名称，参数以及构成其主体的代码。】

在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。

2）按”开始“按钮后，能从考生文件夹下的stud1.dat 中读出所有数据并写入考生文件夹下的stud.dat文件中； 3）执行完毕，”开始“按钮变成”完成“，且无效（变灰）；

第6 题.在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。

Private Sub T1_Change()T2.Text = T1.Text End Sub 按要求保存文件即完成本题。

真・vb大题・正式版1.0

第30题在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽都为1200 的正方形。请设置适当的属性满足以下要求：

1）窗体的标题为”正方形“，窗体的最小化按钮不可用；

2）正方形的边框为虚线（线型不限）。运行后的窗体如图所示。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sj116.vbp，窗体文件名

为sj116.frm。

【本题主要考查了形状控件的Width、Height和BorderStyle属性，同时考查了窗体的Caption和MinButton属性。Width：设置对象的宽度。Height：设置对象的高。BackStyle：设置边框类型。Caption：设置标题。

MinButton：设置窗体最小化按钮是否可用。本题各控件属性设置如下：控件名属性属性值 Shape1 Width 1200 Shape1 Height 1200 Shape1 BackStyle 2-Dash Form1 Caption 正方形 Form1 MinButton False】

第9题.在考生文件夹下有一个工程文件sj83.vbp，相应的窗体文件为sj83.frm。在窗体上有一个命令按钮，其名称为Command1，标题为”计算并输出“。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用”～“连接起来，如图所示。该程序不完整，请把它补充完整。

Private Sub Command1_Click()Dim i As Integer, j As Integer, iSum As Integer Print ”连续和为1250的正整数是：“ For i = 1 To 500 iSum = 0 For j = i To 500 iSum = j + iSum If iSum >= 1250 Then Exit For Next If iSum = 1250 Then Print i;” ～ ";j End If Next End Sub

篇2：vb大题上机总结

‘下标从1开始 Dim a(100)As Integer

‘全局变量 Private Sub Command1_Click()Open “in.txt” For Input As 1

‘读入1号文件

For i = 1 To 100

Input #1, a(i)

‘100个数一次读入

Next i Close 1 End Sub

Private Sub Command2_Click()Dim s As Integer s = 0 For i = 1 To 100

If a(i)>= 400 And a(i)< 800 Then

s = s + a(i)

‘400到800之间的数字相加

End If Next i Text1 = s putdata s

‘将结果存入考生文件夹中 End Sub 2.这个题很简单，回顾一下知识

Private Function fun(x As Integer)As Long Dim sum As Long sum = 1 For i = 1 To x

sum = sum * i Next i fun = sum End Function Private Sub Command1_Click()Dim a As Integer Dim s As Long a = InputBox(“请输入”)s = fun(a)Text1 = s putdata “out.txt”, Text1 End Sub 3.调用标准模块中isprime函数判断是否为素数，求100-200间素数的和 Private Sub Command1_Click()Dim i As Integer Dim s As Integer For i = 100 To 200

‘从100 到200 If isprime(i)= True Then

‘如果为素数则相加

s = s + i End If Next i Text1 = s putdata “out.txt”, Text1

‘查看代码确定变量个数End Sub 打开标准模块的方法

工程资源管理器----form1----右击----添加----添加模块 4.8+88+888+8888 Private Sub Form_Click()Dim a As Integer, n As Integer, j As Integer, sum As Single a = 8 n = 4 For j = 1 To 4

sum = sum + Item(a, n)Next j Print “sum:”;sum End Sub Function item(a, k)Dim p As String, q As String, s As Single Dim k As Integer, i As Single p = “" For i = 1 To k

q$ = Str(k)

p$ = p$ + q$ Next i s = Val(p$)item = s End Function

Private Sub Form_Click()Dim a As Integer, n As Integer, j As Integer, sum As Single a = 8 n = 4 For j = n To 1 Step-1

If j = n Then

sum = item(a, j)

Else

sum = sumhscroll.Value

‘用滚动条控制速度 End Sub Private Sub Timer1_Timer()Static i As Integer If i = 0 Then Picture1.Picture = LoadPicture(”2.ico“)

‘随时间变化，图片变化

i = 1 Else Picture1.Picture = LoadPicture(”1.ico“)i = 0 End If End Sub 6.-2.-，73，82，-76，-1，24，321，-25，89，-20 打印其中的每个负数及计算并输出正数及负数的和 Private Sub Form_Click()Dim num As Integer negativesum = 0: positivesum = 0 For i = 1 To 10 num = InputBox(”enter data:“)

‘从键盘中输入10个数

If num < 0 Then

Print num

negativesum = negativesum + num Else

positivesum = positivesum + num

End If Next i Print Print ”negativesum=“;negativesum Print ”positivesum=“;positivesum End Sub 7.a aa aaa aaaa bbbb bbb bb b

Private Sub Command1_Click()Dim a(4)As String, b(4)As String Dim k As Integer, l As Integer myfile = App.Path & ”“ & ”picture.dat“ Open myfile For Output As #1 For k = 1 To 4

a(k)= String(2 * k1, ”b“)Next k For k = 1 To 4

Print #1, a(k)Next k

‘若为负数则输出再计算其和

‘计算正数和 string函数

‘ For k = 4 To 1 Step-1

‘步长一定要写

Print #1, b(k)Next k Close #1 End Sub 8.单击command1将list1中全部选中单机command2 全部写入“output.txt”中（multiselect=1）Private Sub Command1_Click()Dim i As Integer For i = 0 To List1.ListCount – 1

‘从下表为0的列表到最后一个选中都变为真

List1.Selected = True Next i End Sub

Private Sub Command2_Click()Dim i As Integer Open ”out7.txt“ For Output As #1

‘先打开文件再逐个写入文件中 For i = 0 To List1.ListCount500

Image1.Width = Image1.Width-500 End If End Sub 11.Private Sub Command1_Click()Text1 = InputBox(”请输入要添加的项目“)

‘从键盘输入到文本框再添加到列表框中 List1.AddItem Text1 End Sub

Private Sub Command2_Click()Text1 = InputBox(”请输入要删除的项目“)For i = 0 To List1.ListCount – 1

‘从第一个到最后一个只要与text1中相同则删除

If List1.List(i)= Text1.Text Then

List1.RemoveItem i

End If Next i End Sub 12 Private Sub Command1_Click()Dim chr As String, number As Integer, cp As Integer, lp As Integer Dim others myfile1 = App.Path & ”“ & ”prog8a.dat“

‘路径

myfile2 = App.Path & ”“ & ”prog8b.dat“ Open myfile1 For Input As #1

打开已有文件myfile1，创建myfile2分别作一号和二号文件 Open myfile2 For Output As #2

While Not Eof(1)

Input #1, chr

If Asc(chr)>= 48 And Asc(chr)<= 57 Then

number = number + 1

‘用asc码来识别性质

ElseIf Asc(chr)>= 65 And Asc(chr)<= 90 Then

cp = cp + 1

ElseIf Asc(chr)>= 97 And Asc(chr)<= 122 Then

lp = lp + 1

Else

others = others + 1

End If Wend Print #2, number, cp, lp.others

Close Command1.Caption = ”完成" Command1.Enabled = False End Sub

篇3：职业高中VB上机课教学策略

一采用案例教学法实现VB上机课程的教学

案例教学法是对职业高中传统VB课程教学方法的改进, 教师可以在新的VB知识点讲解过程中融入学生所熟悉的案例, 一方面可以让学生将抽象的知识转换成具体的意识, 另一方面也可以加深学生对新知识点的记忆, 激发学生对VB上机课程的学习兴趣。

教师在VB上机课程的案例教学中要注意以下三点: (1) 案例选取要有明确的教学目标。也就是说, 教师对VB上机课程教学中所选择的案例要能体现出其教学的知识点以及教学的目标, 例如在IF……ELSE选择控制语句的讲解过程中, 由于缺少特定的语句解释案例, 教师就可以采用用户和密码的登录界面来对其进行转化解释, 在引起学生好奇心的同时实现对学生程序设计原理的灌输。 (2) 所举的案例要符合一定的规范。这也就是要求教师在进行案例的选择时要注重其科学的严谨性, 与所讲程序的内在思维逻辑相符合。例如, 对VB对象的概念讲解时, 教师就可以设计一个简单的两数求和程序为例, 并先进行相关的过程演示, 然后让学生进行模仿, 在实际的演练中完成对VB对象相关概念的理解和掌握。 (3) 对学生的案例训练要有螺旋式的上升。对VB上机程序编写的学习并不可能是一件一蹴而就的事情, 只有通过不断地由简到难的练习、实践环节才可能在真正意义上实现学生独立编程能力的提升。在注重整体的教学成果时也还要对学生的个体差异性进行关注。

二注重VB上机课程中理论与实践相结合的教学模式

VB上机课程的教学一般都是建立在对VB课程的理论知识学习的基础之上的, 几乎每一条程序的设计语言都是由其相关的基础理论知识构成的, 无外乎变量、函数、条件语言、循环语句等。因此, 要想掌握相关的上机程序编写技能, 就必须要先加强对理论知识的理解和积累, 尤其是作为刚刚接触VB课程学习的职业高中学生。与此同时, 在VB课程实践环节中, 教师要加强对学生实际动手能力的培养, 在刚接触时, 教师可以先让学生对相关程序编写进行简单模仿, 然后再进行程序编写的逐渐深化和类型范围的扩大。通过对VB程序编写的亲身参与, 可以很好地巩固职业高中学生对基础知识的掌握, 也可以形成学生的创新性思维。

三充分发挥多媒体设备的功能进行教学

VB课程是一门理论与实践紧密结合的课程, 多媒体系统在其教学中有着无可替代的重要作用。以多媒体技术取代VB传统的教学方式可以将程序的设计进行清晰直观的展示, 在简化教学内容的讲解方式时, 也可以引起学生对程序编写的兴趣。此外, 随着科学技术的发展, 计算机的发展水平也得到了很大的进步, 教师能够高效地实现对全体学生上机操作过程的监督。如教师在对一个新的程序编写进行授课时, 可以实现对整个机房的电脑控制, 方便学生对教师程序演示的学习, 然后空出一段时间让学生进行亲身实践, 教师可以通过自己的主机对学生的操作流程进行观察, 并及时对学生所犯的错误进行指导, 实现学生编程的独立性。

四改革VB上机课程的考核方式以及制度

现如今存在于职业高中的VB教学检测方式还是主要以传统的笔试为主。这样的传统考核方式已经远远不能满足对教师的VB上机教学有效性的检测。所以, 教师要针对VB教学的性质, 改变传统、单一的考核方式向笔试、机试相结合的考核方式转变。在另外一个层面上, 由于考核制度的硬性要求, 职业高中的学生也就不得不对VB上机操作加以足够的重视, 从而调动学生的学习自主性, 提高VB上机课程的教学质量。

摘要：对于职业高中的学生来说, VB的上机课不仅是整个计算机教学中的重点, 也是一大难点。既需要学生对基础理论课程知识熟练掌握, 又需要对计算机操作系统灵活掌握, 这给职业高中VB上机教学带来了挑战。本文以当前职业高中VB上机课程中存在的问题为切入点, 简要探讨VB上机课程有效的教学策略。

关键词：职业高中,VB上机课,教学策略

参考文献

[1]朴雪、吴昌明.激发VB学习动机的课堂教学策略研究[J].中国科技信息, 2011 (4)

[2]李建锋、车轩.关于VB课程中“For循环语句”教学设计的研究[J].内蒙古师范大学学报 (教育科学版) , 2011 (1)

篇4：vb上机心得体会

刚开始学习vb的时候，我就觉得大一的计算机基础根本不值一提，难度相去甚远。我问过很多以前的同学，他们都说vb是编程语言中最简单的，但是在这次上机实习过程中，我发现要完成学生成绩管理系统实在有很大难度。平时看课本的时候，觉得还能够理解，看得懂，然而“纸上得来终觉浅”，一旦自己调试程序，总会犯很多错误，如前面说的“文件未找到”“下标越界”等等，都是平时没有机会解决和一些曾经被自己忽视的问题。有时候，为了找到代码中错误或不符合要求的地方，我不得不一遍又一遍地仔细检查程序，甚至标点符号都不能放过。细节决定成败，一个小小的分号也会起着扭转乾坤的作用。

在实习之前，我妄想从网站上下载一个或者请论坛上的好友帮忙，后来我发现这条路走不通，他们从来都不给别人提供实质性的帮助，只是象征性地说：“不会问老师。”于是我打消了这个念头，开始自己动手做。

当我无数次调试总算读出文件的时候，那种高兴劲可想而知。我慢慢觉得，其实自己调试程序蛮有意思的。既弥补了在vb学习中的漏洞，还学到了新内容，积累了一定的实战经验，对以后的期末考试和等级考试起到了相当大的促进作用。