计算机上机总结.doc

1.Private Sub Clock_Click() Label1.Caption = Time End Sub。显示系统当前时间 2.Private Sub Command2_Click()。二分法查找法 Dim low As Integer, high As Integer Dim flag As Integer Text2.Text = x = InputBox(请输入需要查找的数, 输入) low = LBound(a) high = UBound(a) Do m = (low + high) 2 Select Case a(m) Case Is = x flag = 1 Exit Do Case Is x high = m - 1 Case Else low = m + 1 End Select Loop Until low high If flag = 1 Then Text2.Text = 查找成功，该数的位置为 + Str(m) + ！ Else Text2.Text = 查找失败，该数不存在！ End IfEnd Sub3.Dim Flag As BooleanPrivate Sub Form_Load() DrawWidth = 1End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Flag = True End IfEnd SubPrivate Sub Form_mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Flag Then Circle (X, Y), 300 。圆的方法 End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Flag = False End IfEnd Sub4. 计算11+22+33+nnPrivate Sub Command1_Click()=考生编写程序开始=Dim i, j As Integer, k As Long i = Text1.Text k = 0 For j = 1 To i k = k + f(j) Next Text2.Text = k=考生编写程序结束= Open App.Path & out5.dat For Output As #1 Print #1, Text1, Text2 Close #1End SubPrivate Function f(m As Integer) As Long s = 1 For i = 1 To m s = s * m Next f = sEnd Function5.判断平方数 Private Sub Command2_Click() Dim n As Integer n = 0 For k = 1 To 100 If a(k) 0 Then d = Sqr(a(k) If Int(d) = d Then n = n + 1 b(n) = a(k) End If End If Next Call sort(b, n) For k = 1 To n Text2.Text = Text2.Text + Str(b(k) Next kEnd SubPrivate Sub sort(c() As Integer, n) For i = 1 To n For j = i To n If c(j) c(i) Then tmp = c(j) c(j) = c(i) c(i) = tmp End If Next NextEnd Sub6.文本框中输入数字，单击窗体滚动条显示到相应的位置Private Sub Form_Click() HScroll1.Value = Val(Text1.Text)End Sub7.Private Sub List1_Click() Label1.FontSize = Val(List1.Text)End Sub8把列表框中的文字移除到文本框中Private Sub Command1_Click() For i = 0 To list1. ListCount - 1 s = s & List1.List(i) & vbCrLf Next i List1.Clear Text1.Text = sEnd SubPrivate Sub Form_Load() List1.AddItem 枯藤老树昏鸦， List1.AddItem 小桥流水人家， List1.AddItem 古道西风瘦马。 List1.AddItem 夕阳西下， List1.AddItem 断肠人在天涯。End Sub9.读数据代码的编写及其输出，Asc函数的应用。【审题分析】本题首先需要按照要求画出窗体上的控件以及设置它们的属性，然后编写三个按钮的单击事件。在“显示”按钮的单击事件中，首先以Input方式打开文件，然后在循环中使用Line Input#语句将数据取出放入字符串中并显示在文本框中，最后关闭文件。在“统计”按钮的单击事件中，直接用一个循环遍历整个字符串，依次用Mid函数取出字符串中的每一个字符，若满足条件则令计数器j+1，循环结束后j的值就是满足条件的字符出现的个数。在“保存”按钮的单击事件中，用Output方式打开文件，然后使用Write#语句将文本框中的值存入文件，最后关闭文件。【操作步骤】步骤1：新建一个“标准EXE”工程。步骤2：在窗体Form1中加入一个文本框和三个命令按钮，并分别设置它们的相关属性，属性及值如表3所示。表3步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。参考代码：Private str1 As StringPrivate Sub Command1_Click() Open in5.txt For Input As 1 Line Input #1, str1 Close #1 Text1.Text = str1End SubPrivate Sub Command2_Click()Dim i, j As Integer j = 0 For i = 1 To Len(str1)If Asc(Mid(str1, i, 1) = 70 And Asc(Mid(str1, i, 1) = 100 Then j = j + 1 End If Next Text1.Text = jEnd SubPrivate Sub Command3_Click()输出过程 Open out5.txt For Output As #1 Write #1, Text1.Text Close #1End Sub步骤4：按要求将文件保存在考生文件夹中。步骤5：运行程序，先单击“显示”按钮，然后单击“统计”按钮，最后单击“保存”按钮。10.关于image的清除与之间的移动Image2.Picture = Image1.Picture Image1.Picture = LoadPicture()11.计算1+（1+2）+（1+2+3）+（1+2+3+.+n） n = InputBox(请输入整数n) Sum = 0 k = 0For i = 1 To n k = k + i Sum = Sum + k Next i12.使文本框中的文字反向显示 For i = 1 To Len(S1) S2 = S2 + Mid(S1, Len(S1) + 1 - i, 1) Next i13. 【知识点拨】“冒泡法”是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数小于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从大到小的顺序排列出该数列。【审题分析】本题首先需要按照要求画出窗体上的控件以及设置它们的属性，然后编写三个按钮的单击事件。在“取数”按钮的单击事件中，首先以Input方式打开文件，然后在循环中使用Input#语句将数据一一取出放入数组元素中并显示在文本框中，最后关闭文件。在“排序”按钮的单击事件中，首先在一个二重循环中利用冒泡法将数组进行排序，然后再次用一个循环挑选出数组中大于500的数并显示在文本框中。在“存盘”按钮的单击事件中，用Output方式打开文件，然后使用Write#语句将文本框中的值存入文件，最后关闭文件。【操作步骤】步骤1：新建一个“标准EXE”工程。步骤2：在窗体Form1中加入一个文本框和三个命令按钮，并分别设置它们的相关属性，属性及值如表3所示。表3步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。参考代码：Private N(100) As IntegerPrivate Sub Command1_Click() Open in5.txt For Input As #1 For i = 1 To 100 Input #1, N(i) Text1 = Text1 & & N(i) Next i Close #1End SubPrivate Sub Command2_Click()Dim i, j As Integer For i = 1 To 100 For j = i To 100 If N(i) 500 Then Text1 = Text1 & & N(i) End If Next iEnd SubPrivate Sub Command3_Click() Open out5.txt For Output As #1 Write #1, Text1.Text Close #1End Sub步骤4：按要求将文件保存在考生文件夹中。步骤5：运行程序，先单击“取数”按钮，然后单击“排序”按钮，最后单击“存盘”按钮。需考生编写程序14.文件的读取，存盘，首字母转化为大写。Private Sub Command1_Click()Open in5.txt For Input As #1Line Input #1, sClose #1Text1.Text = sEnd SubPrivate Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = Text1.Text strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch = Mid(oldSen, i, 1) If lastCh = Then ch = UCase(ch) End If newSen = newSen & ch lastCh = ch Next i Text1.Text = newSenEnd SubPrivate Sub Command3_Click() Open out5.txt For Output As #1 Write #1, Text1.Text Close #1End Sub15. Everything about the man was outsize. His ruthless rise to power was the stuff of B movies, his ill-gotten wealth the dubious means to the end of a voluptuarys breathtakingly bad taste. His unslakable thirst for torture and murder on a grand scale made Caligula look like a choirboy. So it was both right and fitting that Saddam Husseins comedown should have been similarly epic. . 请考生编写统计字母R、T、D出现的次数（忽略大小写）的事件过程 必须把R、T、D的统计结果分别保存在窗体变量intR,、intT、 intD中,否则没有成绩Private Sub Command2_Click().统计的过程Dim s, k As Integer, str As Strings = Len(Text1.Text)For k = 1 To sIf Mid(Text1.Text, k, 1) = r Or Mid(Text1.Text, k, 1) = R ThenintR = intR + 1End IfIf Mid(Text1.Text, k, 1) = t Or Mid(Text1.Text, k, 1) = T ThenintT = intT + 1End IfIf Mid(Text1.Text, k, 1) = D Or Mid(Text1.Text, k, 1) = d ThenintD = intD + 1End IfNextText2.Text = intR= & intR & intT= & intT & intD= & intD 请考生编写统计字母R、T、D出现的次数（忽略大小写）的事件过程 必须把R、T、D的统计结果分别保存在窗体变量intR,、intT、 intD中,否则没有成绩Private Sub Command2_Click()Dim s, k As Integer, str As Strings = Len(Text1.Text)For k = 1 To s str = Mid(Text1.Text, k, 1)Select Case strCase Ra = a + 1Case rb = b + 1Case Tc = c + 1Case td = d + 1Case De = e + 1Case df = f + 1End SelectintR = a + bintT = c + dintD = e + fNextText2.Text = intR= & intR & intT= & intT & intD= & intDEnd Sub16. 考生应完成的程序组合框（ComboBox）将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。可通过修改组合框的Style属性值来改变其显示类型，值为0-Dropdown Combo时，表示下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入；值为1-Simple Combo时，表示简单组合框，包括一个文本框和一个不带下拉列表的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部分；值为2-Dropdown List时，表示下拉式列表，这种样式仅允许从下拉式列表中选择。组合框的Text属性可以设置或返回显示在组合框里面文本框中的值。Private Sub Command2_Click()Dim i, j As Long If Combo1.Text = 前50个数 Then j = 0 For i = 1 To 50 j = j + a(i) Next j = Round(j / 50, 0) Text1.Text = j End If If Combo1.Text = 前80个数 Then j = 0 For i = 1 To 80 j = j + a(i) Next j = Round(j / 80, 0) Text1.Text = j End If If Combo1.Text = 所有数 Then j = 0 For i = 1 To 100 j = j + a(i) Next j = Round(j / 100, 0) Text1.Text = j End IfEnd Sub17. 【知识点拨】控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。拖放是指用鼠标从屏幕上把对象从一个位置拖到另一个位置。VB提供了让用户自由拖放某个控件的功能。拖放的一般过程是：把鼠标光标移到要拖放的控件对象上，然后按下鼠标键不松开，再移动鼠标，待鼠标移动到目标位置后松开鼠标键，对象即被拖放到目标位置。当把控件拖到目标之后，松开鼠标键时触发DragDrop事件。【审题分析】控件的DragDrop事件有三个主要参数，其中，“Source”参数是一个对象变量，类型为“Contro1”，包含被拖动对象的属性，“X”和“Y”参数是放下对象时鼠标光标的位置。本题中为了判断拖动的是哪一个图片，因此需要判断Source参数的Name属性。当拖动的图片确定，则在控件数组中显示的图片以及需要累加的价格也随之确定。由于控件数组共有6个数组元素，因此应该在拖放事件中进行一个6次的循环，在每次循环中判断数组元素是否已经被显示出来，如果没有被显示出来则令其Visible属性为True，然后退出循环，这样可以实现序号由小到大每次显示一个图片的效果。【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。步骤2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：Select Case Source.NameFor k = 0 To 5If Pic(k).Visible = False ThenPic(k).Visible = TrueText1 = Text1 + a步骤3：按要求将文件保存至考生文件夹中。【主要考点】控件数组、拖放事件。Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) Dim k As Integer str = Select Case Source.Name Case Picture2 str = t2.ico a = 25 Case Picture3 str = t3.ico a = 3 Case Picture4 str = t4.ico a = 1 End Select For k = 0 To 5 If Pic(k).Visible = False Then Pic(k).Picture = LoadPicture(str) Pic(k).BorderStyle = 0 Pic(k).Visible = True Text1 = Text1 + a Exit For End If Next kEnd Sub18.大小写字母数之和Dim i As Integer, j1 As IntegerDim j2 As Integer, j As Integer j1 = 0: j2 = 0 For i = 1 To Len(s) If Asc(Mid(s, i, 1) = Asc(A) And Asc(Mid(s, i, 1) = Asc(a) And Asc(Mid(s, i, 1) = Asc(z) Then j2 = j2 + 1 End If Next If Option1.Value = True Then j = j1 - j2 End If If Option2.Value = True Then j = j1 + j2 End If If Option3.Value = True Then j = j1 * j2 End If Text1.Text = j19. 【审题分析】本题中的数组a用于存放学生的各科成绩，以二维数组的形式存在，每一行代表一个学生，每一列代表一门课程。因此，欲求每个学生的平均分，相当于求该二维数组a的每一行平均值，并且把对应第i行的平均值放到文本框数组Text2下标为i-1的元素中，由于共有5个学生，因此外循环循环5次；同理二维数组a的每一列平均值即为每门课程的平均值，对应第j列的平均值应该放到文本框数组Text3下标为i-1的元素中，由于共有6门课程，因此外循环循环6次。【操作步骤】步骤1：打开本题对应工程文件sjt5.vbp。步骤2：打开代码编辑窗口，分别编辑两个命令按钮的单击事件过程。参考代码：Private Sub Command2_Click()Dim i, j, k As Integer For i = 1 To 5 k = 0 For j = 1 To 6 k = k + a(i, j) Next j Text2(i - 1).Text = Round(k / 6, 0) Next iEnd SubPrivate Sub Command3_Click()Dim i, j, k As Integer For i = 1 To 6 k = 0 For j = 1 To 5 k = k + a(j, i) Next j Text3(i - 1).Text = Round(k / 5, 0) Next iEnd Sub步骤3：运行程序，单击“读入文件”按钮读入数据，然后分别单击“每人平均分”和“每科平均分”命令按钮进行计算，然后单击“存结果”按钮保存计算结果。步骤4：按要求将文件保存至考生文件夹中。【主要考点】循环控制结构的应用、二维数组。Private Sub Command2_Click()For i = 1 To 5k = 0 For j = 1 To 6k = a(i, j) + kNext jText2(i - 1).Text = Int(k / 6)Next iEnd Sub考生编写Private Sub Command3_Click()For j = 1 To 6k = 0 For i = 1 To 5k = a(i, j) + kNext iText3(j - 1).Text = Int(k / 5)Next jEnd Sub20.【知识点拨】Int函数、Fix函数和Round函数都有取整的功能。其中，Round函数的作用是四舍五入进行取整，其格式为Round(x,n)，功能是将指定的数x四舍五入保留n位小数，当n=0时，就能实现四舍五入取整的功能；Int函数和Fix函数都会删除所给数的小数部分而返回剩下的整数，其格式分别为：Int(X)和Fix(X)。Int和Fix的不同之处在于，如果所给数为负数，则Int返回小于或等于所给数的第一个负整数；而Fix则会返回大于或等于所给数的第一个负整数。当参数为正数的时候与Int函数返回值是一样的。【审题分析】本题首先需要利用循环求出数组中所有数的平均值，然后利用k保存数组第一个元素和平均值之间的差的绝对值，接下来再次对数组进行循环，依次计算循环到的数组元素和平均值之间的差的绝对值，若其比k还小则意味着这个数更接近平均值，则令其成为新的k值，并且保存数组下标到i1中。这样循环结束后k中就存放最小的数据和平均值的差值，i1中存放最接近平均值的数组元素的下标。【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，编写“计算”按钮的单击事件过程。参考代码：Private Sub Command2_Click()Dim i, j, k, i1 As Integer j = 0 For i = 1 To 100 j = j + a(i) Next i j = Fix(j / 100) k = Abs(a(1) - j) i1 = 1 For i = 2 To 100 If Abs(a(i) - j) k Then k = Abs(a(i) - j) i1 = i End If Next i Text1.Text = a(i1)End Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“计算”按钮，最后单击“存盘”按钮。考生完成Private Sub Command2_Click()Dim ave, s As Integers = 0For i = 1 To 100s = s + a(i)Next iave = Fix(s / 100)Min = Abs(a(1) - ave)For i = 2 To 100If Abs(a(i) - ave) i1 Then i1 = a(k) End If If a(k) i2 Then i2 = a(k) End If Next k If List1.ListIndex = 0 Then Text1.Text = i1 - i2 End If If List1.ListIndex = 1 Then Text1.Text = i1 + i2 End If If List1.ListIndex = 2 Then Text1.Text = i1 * i2 End IfEnd Sub22. 【审题分析】分析题目可知，本题中“读入文件”命令按钮中首先使用For Input方式打开文件，然后通过Line Input #语句将打开文件中的数据读出到变量s中并且赋给文本框。在“加密”按钮的单击事件中，利用For循环对字符串s进行遍历，依次取出s中的每一个字符；如果循环变量i的值为偶数，接下来就要判断取出的字符是不是字母，如果是字母则进行Chr(Asc(Mid(s,i,1) - 1)的转换，但是要注意如果为字母“A”或者“a”要转换为“Z”或者“z”。同理，如果循环变量的值为奇数，如果取出的字符是字母，则进行Chr(Asc(Mid(s,i,1) + 1)的转换，如果为字母“Z”或者“z”要转换为“A”或者“a”。最后将转换得到的字母连接起来即得到结果。【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口指定位置编写以下代码：参考代码：Private Sub Command1_Click() Open in5.dat For Input As 1 Line Input #1, s Close #1 Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim ss As Stringss = For i = 1 To Len(s) If isletter(Mid(s, i, 1) = True Then If i Mod 2 = 0 Then If Mid(s, i, 1) = a Then ss = ss & z ElseIf Mid(s, i, 1) = A Then ss = ss & Z Else ss = ss & Chr(Asc(Mid(s, i, 1) - 1) End If Else If Mid(s, i, 1) = Z Then ss = ss & A ElseIf Mid(s, i, 1) = z Then ss = ss & a Else ss =