VB上机题汇总
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
vb上机试题及答案
vb上机试题及答案# VB上机试题及答案一、选择题1. 在Visual Basic中，以下哪个不是合法的变量名？- A. 123abc- B. myVariable- C. _myVariable- D. 2myVariable答案： A2. Visual Basic中的哪种数据类型用于存储日期和时间？ - A. Integer- B. Date- C. String- D. Variant答案： B3. 以下哪个是Visual Basic中的流程控制语句？- A. Sub- B. If- C. Dim- D. End答案： B4. 在Visual Basic中，以下哪个不是数组的声明方式？- A. Dim myArray(1 To 10)- B. Dim myArray(0) As Integer- C. Dim myArray As Integer- D. Dim myArray(1) As Integer答案： C5. Visual Basic中，以下哪个是正确的循环结构？- A. For Each- B. While- C. Do While- D. All of the above答案： D二、填空题1. 在Visual Basic中，使用______关键字可以定义一个过程。
- 答案：Sub 或 Function2. 要声明一个名为`myString`的字符串变量，可以使用______语句。
- 答案：Dim myString As String3. 在Visual Basic中，如果要在循环中提前退出，可以使用______语句。
- 答案：Exit For 或 Exit Do4. 要将一个数字转换为字符串，可以使用______函数。
- 答案：CStr 或 Str5. 在Visual Basic中，使用______语句可以定义一个常量。
- 答案：Const三、程序设计题编写一个Visual Basic程序，该程序可以计算并显示一个正整数的阶乘。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
VB上机题汇总
以题号保存，如第1题取名：1.Frm 、1.Vbp 。
1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签控件Label1显示y 值。
⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。
3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。
在窗体上输出结果，运行效果如下图所示。
4、 计算下式的和，变量x 与n 的数值用输入对话框输入。
在窗体上输出结果，运行效果如下图所示。
)!1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。
在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。
在窗体的Click事件中调用该函数。
10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
11、编制通用函数过程(Odd)。
用于判断一个整数的奇偶性。
在窗体的Click事件中调用该函数。
12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。
在窗体的Click事件中调用该函数。
13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
vb上机练习试题及答案
第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。
（2）已知直角三角形的两条直角边长，求斜边长。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入第一条直角边长"))b = Val(InputB ox("输入第二条直角边长"))c = Sqr(a ^ 2 + b ^ 2)PrintcEnd Sub（3）给小学生随机出两位数和一位数的加法题。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入两位数"))b = Val(InputB ox("输入一位数"))c = a + bPrintcEnd Sub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Privat e Sub Comman d1_Cl ick()Dim x#, y!x = Text1.Texty = Round(x, 2)PrintyEnd Sub（5）输入某人姓名，判断是否你的本家。
Privat e Sub Comman d1_Cl ick()Dim a$, b$, p As Boolea nb = "李"a = InputB ox("输入某人的姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrintpEnd Sub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
vb上机考试基本操作题
四、基本操作题1. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。
2.请在窗体的适当位置增加以下控件：文本框Text1，Text属性为“VB演示”；复选按钮Check1，Value初值为0，Caption属性为“粗体”；命令按钮Command1，标题为“退出”，结束系统运行。
3.要求用If-Endif语句完成：选中复选按钮，文本框的文字为粗体；不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Command1_Click()EndEnd Sub2. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
2.请在适当位置增加以下控件：标签Label1，标题为："列表显示"；文本框Text1用于显示在列表框中选中的项；列表框List1。
3.在窗体装载事件中编写代码为列表框List1添加三项显示内容：“足球”，“篮球”，“排球”。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Form_Load()List1.AddItem "足球"List1.AddItem "篮球"List1.AddItem "排球"End SubPrivate Sub List1_Click()Text1.Text = List1.TextEnd Sub3. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
计算机二级VB上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
全国计算机二级VB上机题库(题+答案)
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。
只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。
程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。
（2）菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。
（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
（5）设计完成之后，按规定方式存盘。
2．【解题步骤】（1）建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。
参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。
VB上机考试 习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
vb试题及答案上机
vb试题及答案上机1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为：" & sum)```2. 编写一个VB程序，实现输入一个字符串，然后输出该字符串的反转。
答案：```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为：" & reversedString)```3. 编写一个VB程序，判断一个整数是否为素数，并输出结果。
答案：```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序，实现一个简单的计算器，可以进行加、减、乘、除运算。
答案：```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数："))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数："))Dim operation As String = Console.ReadLine("请输入运算符（+、-、*、/）：")Select Case operationCase "+"Console.WriteLine("结果为：" & num1 + num2)Case "-"Console.WriteLine("结果为：" & num1 - num2)Case "*"Console.WriteLine("结果为：" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为：" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。
vb上机答案全部
实验一Form1.print “程序设计基础教程”End subPrivate sub form_dblclick()Form1.clsEnd subDim a as single,b as single,c as single a=val(text1.text)b=val(text2.text)c=a*btext3.text=str(c)end subDim n as integer,a as singlen=val(text1.text)a= n^(1/3)text2.text=str(a)end subText1.text=“visual basic 程序设计”end subPrivate Sub Command2_click()Text1.text=“”end subText2.text=left(text1.text,5)end subPrivate Sub Command2_click()Text3.text=len(text1.text)end subForm1.Move 0, 0End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height * 1.2Form1.Width = Form1.Width * 1.2End Sub7.Const pi as single=3.14159Command1_click()Dim a as single,b as single,c as single,s as single a=val(text1.text)b=val(text2.text)c=val(text3.text)s=a*b*sin((c*pi)/180)/2text4.text=round(s ,2)end sub实验二顺序Const pi as single=3.14159Private Sub Command1_click()Dim r as single,v as singler=val(text1.text)v=4/3 *pi*r^3label1.caption=format(v, “0.00”)end subDim a as single,b as single,c as single,d as single a=val(text1.text)b=val(text2.text)c=val(text3.text)d=(a+b+c)/3text4.text=format(d, “0.00”)end subText1.locked=falseEnd subPrivate Sub Text1_changeCommand2.enable=trueEnd subPrivate Sub Command_click()Text1.locked=trueCommand2.enable=falseEnd subText1.text=“欢迎光临”End subCommand2_click()Text1.text=“谢谢再见”End subText1.selstart=8Text1.sellength=9End subCommand2_click()Label2.caption=text1.seltext End subConst pi as single=3.14159Dim r as single,h as singlePrivate Sub Command click()Dim s as singler=text1.texth=text2.texts=2*pi*r^2+2*pi*r*htext3.text=format(s, “0.000”) end subPrivate Sub command2 click()dim v as singlev=pi*r^2*htext4.text=format(v, “0.000”) end subDim a as string,b as stringPrivate Sub Command1_click()a=text1.textb=text2.texttext3.text=“a” & “b”end subPrivate Sub command2_click()dim t as stringa=text1.textb=text2.textt=aa=bb=ttext1.text=atext2.text=blabel1.caption=“交换成功”end sub实验三选择Dim n as integerIf (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”ElseLabel2.caption=“No”End ifEnd subDim x as single,y as singlex=text1.texty=text2.textif x>0 and y>0 thentext3.text=“第一象限”elseif x<0 and y>0 thentext3.text=“第二象限”elseif x<0 and y<0 thentext3.text=“第三象限”else x>0 and y<0 thentext3.text=“第四象限”end ifend subDim a as single,b as single,c as single,d as single a=text1.textb=text2.textc=text3.textd=a+b+cif d>=270 thenif d>=285 thentext4.text=“Gold Medal”elsetext4.text=“Silver Medal”end ifelseif d>240 thentext4.text=“Bronze Medal”elseif a>95 or b>95 or c>95 thentext4.text=“Honor Medal”elsetext4.text=“No Medal”end ifend ifend subText.text=“我是博士生”End subOption2_clickText.text=“我是硕士生”End subOption3_clickText.text=“我是本科生”End subIf Check1.Value ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value ThenLabel1.FontStrikethru = TrueElseLabel1.FontStrikethru = FalseEnd IfEnd SubDim n as singlen=text1.textif n=<4 thentext2.text=format（10，“0.0”）elseif n>4 and n<=15 thentext2.text=format（10+1.2*(n-4)，“0.0”）elsetext2.text=format（1.8*n，“0.0”）end ifend subIf text1.text=“Teacher” thenIf text2.text=“123456” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseif text1.text=“Student” thenIf text2.text=“654321” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseLabel3.caption=“用户未注册”End ifEnd sub实验四循环Dim n As Integer, i As Integer, a As Long n = Text1.Texta = 0For i = 1 To nIf (i Mod 3 = 0) And (i Mod 7 <> 0) Thena = a + iEnd IfNext iLabel1.Caption = aEnd SubDim n As Integer, m As Integer, i As Integern = Text1.Text n=val(text1.text)m = Text2.Text m=val(text2.text)If m >= n Then for i=n to 1 step -1For i = n To 1 Step -1 if n mod i=0 and m mod i=0 then If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)Text3.Text = I exit forExit For end ifEnd If next iNext iElseFor i = m To 1 Step -1If (m Mod i = 0) And (n Mod i = 0) ThenText3.Text = iExit ForEnd IfNext iEnd IfEnd SubDim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag AsBooleanm = Text1.Textn = Text2.Texts = 0For a = m To nflag = TrueFor i = 2 To a - 1If a Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then s = s + a Next aText3.Text = sEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseLabel1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End SubDim n As Single, i As Single, a As Single, s As Single n = Label1.Captions = 0For i = 1 To nFor a = 1 To is = s + aNext aNext iText1.Text = sEnd SubPrivate Sub HScroll1_Change()Label1.Caption = HScroll1.ValueEnd SubDim s As Single, n As Long, t As Long, i As Longs = Text1.Textt = 1For i = 1 To Len(s)If Right(s, 1) = "1" Thenn = n + tEnd Ift = t * 2s = Left(s, Len(s) - 1)Next iLabel1.Caption = nEnd SubPrivate Sub Command2_Click()Dim a As Long, q As Longa = Text1.TextDo While (a > 0)q = a Mod 2 & qa = a \ 2LoopLabel1.Caption = qEnd SubTimer1.Enabled = TrueCommand1.Enabled = FalseCommand1.Caption = "继续"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 ThenLabel1.FontSize = 8End IfEnd Sub实验五数组Private Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 10a(i) = Int(Rnd * 81) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer Text2.text=""For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j)a(j) = a(i)a(i) = tEnd IfNext jNext iFor i = 1 To 10If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2) End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & a(i) & Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integermax = a(1)For i = 2 To 10If max < a(i) Thenmax = a(i)End IfNext iText2.Text = maxText3.Text = Chr(max)End SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & Chr(a(i)) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, b As Integer, j As Integer r = 0b = Asc(Text2.Text)For i = 1 To 100If a(i) = b Thenj = j + 1End IfNext iText3.Text = jEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i, j) & Space(2) Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_ClickDim i as Integer ,j as Integer ,s as Integer For i = 1 to 5j = 6 – is=s+a( i ,j )next iLabel1.caption =sEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integeri = Val(Text1.Text)ReDim a(1 To i)a(1) = 1a(2) = 1For n = 3 To ia(n) = a(n - 1) + a(n - 2)Next nText2.Text = a(i)End SubPrivate Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 50a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerText2.Text = 0For i = 1 To 50If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41) + 10Text1.Text = Text1.Text & a(i, j) & Space(2)Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer,j as integerFor i=1 to 4t=a(i,1)a(i,1)=a(i,3)a(i,3)=tNext tFor i = 1 To 4For j = 1 To 4Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next jLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub实验六常用控件Private Sub Op_Click(Index As Integer)Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)Select Case IndexCase 0c = a + bCase 1c = a - bCase 2c = a * bCase 3c = a / bEnd SelectText3.Text = Str(c)End SubPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 10a(n) = Int(Rnd * 81) + 10List1.AddItem a(n)Next nEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9For k = i + 1 To 10If a(i) > a(k) Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext kNext iFor i = 1 To 10List2.AddItem a(i)Next iEnd SubPrivate Sub Command1_Click()Timer1.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Timer1_Timer()List1.AddItem Int(Rnd * 90000 + 10000) End SubDim n As Integer, s As Integers = 0For n = 0 To 4If List1.Selected(n) = True Thens = s + 1End IfNext nText1.Text = sEnd SubList1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndexEnd SubText1.Text = Combo1.TextEnd SubPrivate Sub Command2_Click()Combo1.List(Combo1.ListIndex) = Text1.TextEnd SubPrivate Sub Timer1_TimerDim n as integerIf n>Combo1.ListCount-1 then n=0Combo1.ListIndex = nn=n+1End SubPrivate Sub Command1_ClickTimer1.Enabled =TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2.ClickTimer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled =FalseEnd SubPrivate Sub Command3_Click()For j = 0 To Combo1.ListCount - 1If Combo1.List(j) = Trim(Text1.Text) Then Exit ForEnd IfNext jIf j = Combo1.ListCount ThenLabel1.Caption = "No Found"ElseLabel1.Caption = "Found"End IfEnd Sub实验七过程Dim i As Integer, n As Integer, p As Double n = Val(Text1.Text)p = 0For i = 1 To np = p + fact(i)Next iText2.Text = Str(p)End SubFunction fact(ByVal n As Integer) As Double Dim i As Integer, p As Doublep = 1For i = 1 To np = p * iNext ifact = pEnd FunctionDim x As Integer, y As Integer, z As Integer x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)Swap x, ySwap x, zSwap y, zText4.Text = x & " " & y & Space(2) & z End SubPrivate Sub Swap(ByRef x%, ByRef y%)Dim t As IntegerIf x < y Thent = x: x = y: y = tEnd IfEnd SubDim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = m * n / Gcd(m, n)End SubFunction Gcd(ByVal m%, ByVal n%) As Integer Dim i As IntegerFor i = m To 1 Step -1If m Mod i = 0 And n Mod i = 0 ThenGcd = iExit FunctionEnd IfNext iEnd FunctionDim x As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = Square(x, n)End SubFunction Square(ByVal x%, ByVal n%) As Double Dim i As IntegerFor i = 0 To nSquare = Square + x ^ iNext iEnd FunctionDim m As Integer, n As Integer, i As Integer Text3.Text = ""m = Val(Text1.Text): n = Val(Text2.Text)For i = m To nIf Isprime(i) ThenText3.Text = Text3.Text & i & " "End IfNext iEnd SubFunction Isprime(n As Integer) As Boolean Dim i As IntegerIsprime = TrueFor i = 2 To n - 1If n Mod i = 0 ThenIsprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerReDim a(9)Text1.Text = ""For i = 0 To 9a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubFunction sort(b() As Integer)Dim i As Integer, j As Integer, t As Integer For i = 0 To 8For j = i + 1 To 9If b(j) < b(i) Thent = b(j)b(j) = b(i)b(i) = tEnd IfNext jNext iFor i = 0 To 9sort = sort & b(i) & Space(2)Next iEnd FunctionPrivate Sub Command2_Click()Label1.Caption = sort(a())End SubDim i As Integersak = 0For i = 0 To k - 1sak = sak + a * 10 ^ iNext iEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, n As Integer, s As Long, a As Integer a = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = 1 To ns = sak(a, i) + sNext iText3.Text = sEnd Sub实验八图形Picture1.Picture = LoadPicture(App.Path & "\Wys.bmp") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End Sub2.If Check1.Value = 1 ThenImage1.BorderStyle = 1ElseImage1.BorderStyle = 0End IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture(App.Path & "\Pic.jpg") ElseImage1.Picture = LoadPicture()End IfEnd SubShape1.Shape = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.FillStyle = VScroll1.ValueEnd SubPrivate Sub Command1_Click()Picture1.Line (0, 600)-(1600, 600)End SubPrivate Sub Command2_Click()Picture1.ClsPicture1.Circle (800, 600), 500, , , , 2End SubIf keyascii>48 or keyascii<57 ThenKeyascii=0Label1.Caption = "非法输入"ElseLabel1.Caption = "合法输入"End IfEnd SubImage1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2 ^ (1 / 2)) Image1.Height = Image1.Height * Sqr(2 ^ (1 / 2)) End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2)Image1.Height = Image1.Height * Sqr(2)End SubPrivate Sub Command3_Click()Image1.Stretch = FalseEnd SubPicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsgreen_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsred_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End sub实验九文件Private Sub Command1_Click()Dim i As IntegerText1.Text = ""i = 1Open App.Path & "\Grade.txt" For Input As #1Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 30If a(i) = 100 Thens = s + 1End IfNext iText2.Text = sEnd SubDim s As StringText1.Text = ""Open App.Path & "\Infile.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim a As Stringa = UCase(Text1.Text)Text1.Text = aOpen App.Path & "\Outfile.txt" For Output As #1 Print #1, aClose #1End SubPrivate Sub Command1_Click()Dim s As String, i As IntegerText1.Text = ""i = 1Open App.Path & "\Datain.txt" For Input As #1 Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 20If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2)End IfNext iEnd SubDim s As StringText1.Text = ""Open App.Path & "\Dialog.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 65 And Asc(s) <= 90 Thenr = r + 1End IfNext iText2.Text = rEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 97 And Asc(s) <= 122 Thenr = r + 1End IfNext iText3.Text = rEnd SubFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Dim a As StringIf Right(File1.Path, 1) = "\" Thena = File1.Path + File1.FileNameElsea = File1.Path + "\" + File1.FileNameEnd IfText1.Text = aEnd Sub实验十界面设计Text1.locked=falseFSave.enable=trueEnd subFSave_clickText1.locked=tureFSave.enable=falseEnd sub2.dis_clicktext1.text=“计算机等级考试”end sub3.clea_clicktext1.text=“”end sub4.sqadd_clicklabel1.caption=(val(text1.text)^2)+(val(text2.text)^2) end subsqsub_clicklabel1.caption=(val(text1.text)^2)-(val(text2.text)^2) end submnuclean_clicktext1.text=“”text2.text=“”label1.caption=“”end sub4.Private Sub MnuRed_Click()Shape1.FillColor = vbRedEnd SubPrivate Sub MunBlue_Click()Shape1.FillColor = vbBlueEnd Sub5.Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextFor i = 1 To aIf Sqr(i) = Int(Sqr(i)) ThenList1.AddItem iEnd IfNext iEnd Sub制作人：102宿舍、尤昌波只供参考。
vb上机考试试题
vb上机考试试题一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property2. VB中的“Option Explicit”语句的作用是什么？A. 定义变量类型B. 强制显式变量声明C. 隐藏变量D. 设置变量的作用域3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. PictureBoxD. ComboBox4. 如果要为VB中的按钮控件添加点击事件，应该使用哪个事件？A. ClickB. DoubleClickC. MouseDownD. KeyPress5. 在VB中，以下哪个函数可以用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Asc()6. VB中的“Select Case”语句最多可以有多少个Case分支？A. 1B. 2C. 10D. 无限制7. 在VB中，以下哪个属性用于设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text8. 当在VB中创建一个数组时，数组的下标默认从哪个数字开始？A. 0B. 1C. 100D. -19. 在VB中，以下哪个方法用于获取文本框中输入的文本？A. TextB. CaptionC. ValueD. Name10. VB中的“With”语句用于什么目的？A. 初始化变量B. 创建对象C. 引用对象的多个属性或方法D. 定义数据类型二、填空题（每空3分，共30分）11. 在VB中，使用________关键字可以创建一个类。
12. 如果要让一个变量在整个应用程序中都可访问，应该使用________关键字声明它。
13. 在VB中，一个事件处理程序的名称通常由触发事件的控件名称、一个下划线和一个________组成。
14. 要循环遍历一个数组中的所有元素，可以使用________循环。
VB上机综合考试题十五套
Tｅxt2 = m----－-２分
Eｎd Sub
ＰriｖatｅＳub Optioｎ２_Cliｃｋ()----－-1分
Dimi%－-－---2分
ｍ＝１－-----1分
Forｉ=１Tｏn + 2----－-2分
m＝m * i--－－－-2分
Ｎeｘtｉ－-----２分
Text2＝ｍ－－----2分
EndＳuｂ
VB上机综合测试题（二)
1.设计如图所示界面，编程实现如下功能:在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中,其中，平时成绩占最终成绩的30％，考试成绩占最终成绩的70%；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮,关闭窗口。（3５分）
２．设计左图所示界面,编程实现如下功能:单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
IfＣheck１(ｋ).ｖaluｅ= 1 Thｅn--－--2分
Text1．Tｅxt＝Tｅｘt1.Tｅxt & Check1(k）．Caｐtｉon＆"＂----－-2分
EndＩf----－－2分
Nｅxtｋ----－-2分
ＥndSub
三、
界面设计----－10-分
Ｐriｖate SuｂCｏmｍａnd１_Ｃliｃk（)------2分
PrivatｅSub Chｅck3_Clｉck()
Text1.FontUnｄｅｒｌine= Check3.Value----－-5分
Ｅnd Suｂ
二、
界面设计-－----10分
ＰriｖateSub Cmd1_Clｉcｋ()-－--－-２分
Ｄｉma％（19), i%, suｍ!, aｖer!--－－－-４分
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
以题号保存，如第1题取名：1.Frm 、1.Vbp 。
1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签控件Label1显示y 值。
⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。
3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。
在窗体上输出结果，运行效果如下图所示。
4、 计算下式的和，变量x 与n 的数值用输入对话框输入。
在窗体上输出结果，运行效果如下图所示。
)!1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。
在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。
在窗体的Click事件中调用该函数。
10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
11、编制通用函数过程(Odd)。
用于判断一个整数的奇偶性。
在窗体的Click事件中调用该函数。
12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。
在窗体的Click事件中调用该函数。
13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。
在窗体的Click事件中调用该函数。
14、编制函数过程(Sum)，用于计算1个整数的各位数字之和（如引用Sum(132)的结果是6，引用Sum(-23)的结果是5，等等）。
在窗体的Click事件中调用该函数。
15、新建一个工程，完成应用程序的设计，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）取消窗体的最大化和最小化按钮。
（3）当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。
（4）同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
（5）当窗体大小改变后，总是让命令按钮位于窗口的中央。
16、新建一个工程，完成应用程序的设计，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）单击产生题目按钮，在文本框产生1道加法运算题。
17、新建一个工程，完成“计算平均成绩”应用程序的设计。
具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）在输入或修改单科成绩的同时计算平均分,即在"高数","英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。
（3）平均成绩”文本框不允许编辑，即不能手工修改。
（4）各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。
18、新建一个工程，完成“密码检验”程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）文本框Text1，用于输入密码。
文本框中输入的字符显示为*，并且最多可以接受7个字符。
（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。
（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。
19、设计一个秒表模拟程序，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）按下“开始”按钮，屏幕显示当前时间。
（3）按下“结束”按钮，屏幕显示结束时间和持续时间。
（4）按下“退出”，结束程序。
运行界面如图所示。
20、新建一个工程，完成“检查口令”程序的设计。
具体要求如下：（1）单击“开始”按钮，清除文本框中的信息，并把光标移到第一个文本框中；接着在第一个文本框中输入用户名，第二个文本框中输入口令。
（2）单击“检查口令”按钮，检查输入的口令是否正确。
若正确，则进入如下的第二个窗体，在该窗体上装有一幅图片；否则显示一个信息框，要求重新输入，此时将调用“开始”按钮的click 事件过程，再一次在文本框中输入口令，这样允许重输三次口令，超过三次，则口令文本框将转为不能编辑。
（3）单击“结束”按钮，结束程序。
21、新建一个工程，完成“替换”程序的设计。
具体要求如下：(1) 窗体的标题为“替换”。
(2) 窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。
(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。
单击“替换”按钮执行。
22、新建一个工程，完成“字体修饰”程序的设计。
具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
窗体的标题为“字体修饰”。
（2）框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。
（3）框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。
（4）标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居中。
23、设计一个“家电提货单”管理程序，程序运行界面如下图所示。
具体要求如下：（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。
（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。
（3）“清除”按钮用于清空列表框中的项目。
（4）所有文本框只接受数字。
24、设计一个“个人资料”输入窗口，程序运行界面如下图所示。
具体要求如下：（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。
（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。
25、新建一个工程，完成应用程序的设计。
具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。
（3）如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。
26、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。
如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（3）单击“删除单词”按钮，删除列表框中被选中的列表项，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
（4）单击“全部删除”按钮，删除列表框中的全部表项。
（5）单击“退出”按钮，结束该程序。
27、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。
（3）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
28、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。
（3）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。
（4）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。
29、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示。
（3）单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。
30、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）在两个列表框控件的list中输入一些内容。
（3）当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。
（4）当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。
（5）当单击“结束”按钮时，退出应用程序。
31、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312”。
（3）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为8~20。
32、设计一个畅销书排行榜程序，运行界面如下图所示。
具体要求如下：（1）在左边列表框中显示排名前5名的畅销书；（2）输入新书名和名次，单击“入榜”，添加到左边列表框中相应位置；（3）单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”；（4）单击“清除”，可以删除文本框中的输入内容，文本框2只允许输入数字1~5；（5）单击“结束”，退出程序运行。
33、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。
34、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）滚动条的取值范围均为10-40。
（3）完成以下功能：根据设定字号改变标签框内显示文字的大小。
要求水平滚动条与文本框相关联。
35、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。
（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰两种颜色显示。