1，二级vb上机题
2，VB上机题目
dim MyData as string
MyData = inputbox("请输入数据")
list1.AddItem Mydata
3，计算机二级vb上机试题
仅仅在窗体上放一个命令按钮(点按钮后结果在窗体上打印出来,只有3个数,6,60,90)
Private Sub Command1_Click()
Print "200以内的酉完全数"
Print
Dim n As Integer, i As Integer, k As Integer, j As Integer, min As Integer, a As Integer
For n = 1 To 200
a = 0
For i = 1 To n - 1
If n Mod i = 0 Then
If i < n / i Then
min = i
Else
min = n / i
End If
For j = 1 To min
If i Mod j = 0 And n / i Mod j = 0 Then
k = j
End If
Next j
If k = 1 Then
a = a + i
End If
End If
Next i
If a = n Then Print n
Next n
End 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分。
二级其实不难的，只要你肯认真学。
祝你一切顺利！
5，Vb程序设计试题上机操作
题目晚上回家帮你做 你倒是把每个题的图发上来啊
呃看到你在另一个提问的图了，代码是这样的：
Dim a As Integer
Dim b As Integer
Dim TrueSum As Integer
Dim FalseSum As Integer
Private Sub Command1_Click()
If Text2.Text = "" Then
MsgBox "请输入您的答案", , "自动出题"
Text2.SetFocus
ElseIf Val(Text2.Text) = a + b Then
MsgBox "计算正确", , "自动出题"
TrueSum = TrueSum + 1
a = Int((100 - 10 + 1) * Rnd + 10)
b = Int((100 - 10 + 1) * Rnd + 10)
Text1.Text = a & "+" & b & "="
Text2.Text = ""
Text2.SetFocus
ElseIf Val(Text2.Text) <> a + b Then
MsgBox "计算错误", , "自动出题"
FalseSum = FalseSum + 1
a = Int((100 - 10 + 1) * Rnd + 10)
b = Int((100 - 10 + 1) * Rnd + 10)
Text1.Text = a & "+" & b & "="
Text2.Text = ""
Text2.SetFocus
End If
End Sub
Private Sub Command2_Click()
MsgBox "您一共做了" & TrueSum + FalseSum & "道题,正确" & TrueSum & "道,错误" & FalseSum & "道,得分：" & 100 / (TrueSum + FalseSum) * TrueSum & "分", , "自动出题并给出提示"
TrueSum = 0
FalseSum = 0
Text2.SetFocus
End Sub
Private Sub Form_Load()
Me.Show
Text1.Locked = True
Text1.BackColor = &H8000000F
Text1.ForeColor = vbBlack
Text1.Alignment = 2
Text2.SetFocus
Command1.Default = True
a = 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题库，笔试上机俱全
