vb上机试题，二级vb上机题 _上机

1，二级vb上机题好难东莞打工规划的规定

2，VB上机题目dimMyData as string
MyData = http://www.codepub.com/xiaoxue/xxwd/xxzs/inputbox("请输入数据")
list1.AddItem Mydata

3，计算机二级vb上机试题仅仅在窗体上放一个命令按钮(点按钮后结果在窗体上打印出来,只有3个数,6,60,90)Private Sub Command1_Click()Print "200以内的酉完全数"PrintDim n As Integer, i As Integer, k As Integer, j As Integer, min As Integer, a As IntegerFor n = 1 To 200a = 0For i = 1 To n - 1If n Mod i = 0 ThenIf i < n / i Thenmin = iElsemin = n / iEnd IfFor j = 1 To minIf i Mod j = 0 And n / i Mod j = 0 Thenk = jEnd IfNext jIf k = 1 Thena = a + iEnd IfEnd IfNext iIf a = n Then Print nNext nEnd Sub

4，VB机试题目展开全部Open "d:\1.txt" For Input As #1‘打开文件Do While Not EOF(1)‘循环文件，直到文件结束Line Input #1, a‘取得文件的当前行b = b & vbcrlf &a‘把取得的行链接到变量b中，并在行之间加上回车 Loop‘循环text1.text=b‘b变量设置到文本框中Close #1‘关闭文件计算机全国二级等级考试？lz还真是会简称呢！分上机和笔试题，各90分钟。上机题有三大题，简单操作题-2小题，基础应用题-2小题，综合应用题-1大题，最后一大题比较难点吧。笔试分为选择题和填空题，其中填空题有35题，每题两分，填空题有15个空，每空一分。笔试中，公共基础知识占30%，也就是30分。二级其实不难的，只要你肯认真学。祝你一切顺利！展开全部1楼的回答已经很好了5，Vb程序设计试题上机操作题目晚上回家帮你做你倒是把每个题的图发上来啊
呃看到你在另一个提问的图了，代码是这样的：
Dim a As IntegerDim b As IntegerDim TrueSum As IntegerDim FalseSum As IntegerPrivate Sub Command1_Click()If Text2.Text = "" ThenMsgBox "请输入您的答案", , "自动出题"Text2.SetFocusElseIf Val(Text2.Text) = a + b ThenMsgBox "计算正确", , "自动出题"TrueSum = TrueSum + 1a = Int((100 - 10 + 1) * Rnd + 10)b = Int((100 - 10 + 1) * Rnd + 10)Text1.Text = a & "+" & b & "="Text2.Text = ""Text2.SetFocusElseIf Val(Text2.Text) <> a + b ThenMsgBox "计算错误", , "自动出题"FalseSum = FalseSum + 1a = Int((100 - 10 + 1) * Rnd + 10)b = Int((100 - 10 + 1) * Rnd + 10)Text1.Text = a & "+" & b & "="Text2.Text = ""Text2.SetFocusEnd IfEnd Sub
Private Sub Command2_Click()MsgBox "您一共做了" & TrueSum + FalseSum & "道题,正确" & TrueSum & "道,错误" & FalseSum & "道,得分：" & 100 / (TrueSum + FalseSum) * TrueSum & "分", , "自动出题并给出提示"TrueSum = 0FalseSum = 0Text2.SetFocusEnd Sub
【vb上机试题，二级vb上机题】Private Sub Form_Load()Me.ShowText1.Locked = TrueText1.BackColor = &H8000000FText1.ForeColor = vbBlackText1.Alignment = 2Text2.SetFocusCommand1.Default = Truea = Int((100 - 10 + 1) * Rnd + 10)b = Int((100 - 10 + 1) * Rnd + 10)Text1.Text = a & "+" & b & "="End Sub
你试试吧
6，计算机二级vb上机题库及答案 2009年全国计算机二级VB精选上机考试试题(2)一、基本操作题下面出现的“考生文件夹”均为c：＼wexam＼20060001 。请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 。(1)在名称为Form1的窗体上画一个水平滚动条，其名称为HScmll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：窗体标题为“设置滚动条属性”；滚动条所能表示的最小值和最大值分别为0和200，滚动框的初始位置为100 。程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为2，单击滚动框前面或后面的部位时，滚动框移动的增量值为10 。程序的运行界面如图32-1所示。要求：不要编写任何代码。图32-1注意：存盘时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kt1.frm 。(2)在名称为Form1的窗体上画一个文本框，其名称为Text1，如图32－2所示。编写适当的事件过程，使程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行界面如图32-3所示。要求：不得使用任何变量；只允许通过修改属性的方式移动文本框。注意：存盘时必须存放在考生文件夹下，工程文件名为kt2.vbp，窗体文件名为kt2.frm 。图32-2图32-3二、简单应用题下面出现的“考生文件夹”均为c：＼wexamL20060001 。(1)在考生文件夹下有一个工程文件kt3.vbp，相应的窗体文件为kt3.frm 。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中大于500的所有整数之和。程序运行后，单击命令按钮(名称为Command1，标题为“输出大于500的整数之和”)，即可求出这些整数的和，并在窗体上显示出来，如图32-4所示。这个程序不完整，请把它补充完整，并能正确运行。图32-4要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件kt4.vbp，相应的窗体文件为kt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～100范围内不能被7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数之和的操作在通用过程Fun中实现，请编写该过程的代码。要求请勿改动程序中的任何内容，只在Ftrnction Fun()和 End Function之间填入所编写的若干语句。最后把修改后的文件按原文件名存盘。三、综合应用题下面出现的“考生文件夹”均为c：＼wexam＼20060001 。在名为Form1的窗体上建立一个名为Text1的文本框，将MultiLine属性设置为True，ScrollBars属性设置为2 。再建立两个名称分别为Cmd1、Cmd2和Cmd3命令按钮，标题分别为“读数”、“排序”和“保存”，如图32-5所示。程序运行后，如果单击“读数”按钮，则读入in7.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序”按钮，则对100个整数按从大到小进行排序；如果单击“保存”按钮，则把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件out7.txt中(在考生文件夹下有标准模块mode1.bas过程可以把指定个数的数组元素存入out17.txt文件，考生可以把该模块文件添加到自己的工程中) 。注意：保存时必须存放在考生文件夹中，窗体文件名为kt5.frm，工程文件名为kt5.vbp，排序结果存入out17.txt，否则没有成绩。图32-5百度搜索，全国各种等级考试，点击第一个链接进去就有大量的计算机二级vb题库，笔试上机俱全