VB实验指导例题

程序代码Private Sub Command1_Click()End SubPrivate Sub Command2_Click() = TrueEnd SubPrivate Sub Command3_Click() = TrueEnd SubPrivate Sub Command4_Click() = 10 = False = FalseEnd Sub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：自测2单击还原之后窗口：Private Sub Command1_Click()Label1 = "visual basic"Text1 = " 程序设计题"End SubPrivate Sub Command2_Click()Text1 = "visual basic"Label1 = " 程序设计题"End Sub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3Private Sub Command1_Click()End SubPrivate Sub Command2_Click() = + 30End Sub= + 20= 1初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码Private Sub Command1_Click() = "VB 学习"Print"简单的VB程序设计"End SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：自测题5单击退出之后的窗口：Private Sub Comma nd1_Click()HHEnd SubPrivate Sub Comma nd2_Click() =Val + Val End SubPrivate Sub Comma nd3_Click() End End Sub初始化窗口: 单击运算之后窗口: 单击清除之后的窗口:也 I 绘I lirr-：輕 g砖屮 ZBPL H J ^E 霸赴 BAy 噹晔了 ZILT. 相0 ■tap乜=1 业 '-JS-J Q -•ST F■ I” _l ■■ B 事电r 兴/涉审叭暂背巧応科1I gMd I T B ' A bJ El -； F 」 )-1 a □瓷 a QB aitr 硕八— y -I Su日 r>M| PLi.l CnhwJ x> 蚀-7 -■nJ肝 k4・Jii.— Tr«：h^.L 33 -:呻p Ju IpL*口- i-JN h —vid.]F TM IHFLlMv ■ -UKncnm-'|LUIPI> r■41•成 &.■ B WOQULL,:■—PMd P GPrivate Sub Command1_Click()Dim a$= Left(a, 2)End SubPrivate Sub Command2_Click()= Right(a, 2)End SubPrivate Sub Command3_Click()End Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2 Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 ' 个位d = (a \ 10) Mod 10 ' 十位c = (a \ 100) Mod 10 ' 百位b = a \ 1000 ' 千位i = (e + 7) Mod 10 ' 个位h = (d + 7) Mod 10 ' 十位g = (c + 7) Mod 10 ' 百位f = (b + 7) Mod 10 ' 千位交换后的个位交换后的千位交换后的十位交换后的百位l = f * 1000 + g * 100 + h * 10 + i = FalsePrint " 加密前的4位整数是7439"; (Chr(10)); " 加密后的结果是"; l End Sub初始界面单击窗体运行后的界面自测练习1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(" 输入第一个数", "b = Val(InputBox(" 输入第一个数", "f = Fix(f * 100 + / 100& "x/y=" & f, , " 输出的结果"End Sub自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!Print " 和="; ePrint " 平均值="; f 输入一个数", 8)) 输入一个数", 7))MsgBox"x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10)a = Val(InputBox(" 输入第一个数的值"))b = Val(InputBox(" 输入第二个数的值"))c = Val(InputBox(" 输入第三个数的值"))d = Val(InputBox(" 输入第四个数的值"))End Sub自测练习3Private Sub Form_Click()Dim h%, f%, x%, y%h = Val(InputBox(" 输入总头数"))f = Val(InputBox(" 输入总脚数"))x = (4 * h - f) / 2y = (f - 2 * h) / 2Print " 笼中鸡的头数为"; x; 只"Print " 笼中兔的头数为"; y; 只"End Sub自测练习1：Private Sub Form_Click()Dim a%, b%, c%a = Val(InputBox(" 请输入第一条边", " 边长"))b = Val(InputBox(" 请输入第二条边", " 边长"))c = Val(InputBox(" 请输入第三条边", " 边长"))If a + b > c And a + c > b And b + c > a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenPrint " 直角"ElseIf a = b And b = c ThenPrint " 等边三角形"ElseIf a = b Or a = c Or b = c ThenPrint " 等腰三角形"ElsePrint " 一般三角形"End IfElsePrint " 不是三角形"End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：等边三角形运行结果如下：等腰三角形：般三角形自测练习2：Private Sub Form_Click()Dim a%, b!a = Val(InputBox(" 请输入"))If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口: 输入一个数: 运行结果: 自测练习3Private Sub Comma nd1_Click()Dim a%, b% a = ValSelect Case a > 0Case a < 20MsgBox "行李费为元/kg",," 行李费Case a >= 20 And a < 50MsgBox "行李费为元/kg",," 行李费Case a >= 50 And a < 100MsgBox "行李费为元/kg",," 行李费Case Elseb = * 100 + (a - 100) * : MsgBox " 行李费为"& b & "元",,"行李费End SelectEnd Sub初始窗口: 输入10: 输入25: 输入55: 输入120: 自测练习1Op tio n Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As In teger a(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10 a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFori = 11 To 16a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 17 To 20 a(i) = a(i - 1) + a(i - 2) Print a(i);Next i初始界面：运行结果界面：自测练习2Option Base 1Private Sub Form_Load()= 10000= 5000End SubPrivate Sub Command1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4For j = 1 To 4 a(i, j) = Int(Rnd * 10) + 1a(i, j);Next jNext i " 对角线的元素如下"For i = 1 To 4 a(i, i);Next iFor i = 1 To 4 a(i, 5 - i);Next iFor i = 1 To 4 t = a(1, i) a(1, i) = a(4, i) a(4, i) = t Next iFor i = 1 To 4 t = a(i, 2) a(i, 2) = a(i, 3) a(i, 3) = t Next iFor i = 1 To 4Forj = 1 To 4 a(i, j)；Next jNext iEnd Sub运行初始界面:运行结果界面: 自测练习1Sub itostr(a As In teger)Dim b%, c$ a = VaiWhile a >= 1 c = Chr(a Mod 10+ 48) & c0 Fornnl施机;^生的拒畔相应处運输入矩阵茹处理般曲越$a = a \ 10WendEnd SubPrivate Sub Command1_Click()Dim a As Integer a = ValCall itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As DoubleDim c#, d#, e#, s# n = Val c = (1 - 0) / nWhile e <= 1 d = I * c: e = (I + 1) * c s = s + (Sin(d) + Sin(e)) * c / 2 area = s WendEnd FunctionPrivate Sub Command1_Click()Dim s As DoubleCall area(n) = area(n)End Sub运行初始界面：运行结果：自测练习3Private Sub Form_click() n =Val(InputBox(" 请输入n 的值")) x = Val(InputBox(" 请输入x 的值"))Print "e 的值="; es(n, x)End SubPrivate Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integer a = 1: b = 1: c = 1For i = 1 To n a = x * a: b = b * i: c = c + a / bNext i es = cEnd Function运行初始界面：输入数据：运行结果：自测练习4：For i = 1 To 4For j = i + 1 To 5If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 5Print a(i); " ";Next iFor i = 1 To 5If Y < a(i) Thent = a(i): a(i) = Y: Y = tEnd IfNext iFor i = 1 To 6a(6) = tNext iEnd FunctionPrivate Sub Command1_Click()Dim i#, a%(1 To 6), Y%Y = Val(InputBox(" 输入y 的值", " 输入数据"))Insertfun a%(), YPrintFor i = 1 To 6Print a(i); " ";Next iEnd Sub运行初始界面：插入数据：运行结果：自测练习1：Private Sub Command1_Click()If = 1 Then = " 报名参加羽毛球比赛" End IfIf = 1 Then = " 报名参加乒乓球比赛"If = 1 And = 1 ThenEnd If= " 报名参加羽毛球，乒乓球比赛"End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load()= 24 = " 黑体" = &HFF&End SubPrivate Sub Option1_Click() = " 我是学生"End SubPrivate Sub Option2_Click() = " 我是教师"End SubPrivate Sub Option3_Click() = " 我是工人"Private Sub Option4_Click()End Sub= " 我是农民"End Sub运行初始界面：运行结果：自测练习6：Private Sub Command1_Click()For i = 0 To - 1If (i) = ThenExit ForEnd IfNext iIf i > - 1 ThenEnd IfEnd SubPrivate Sub Command2_Click()If <> -1 ThenFor i = 0 To - 1If (i) = ThenEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()End Sub运行初始界面:自测练习7：Private Sub Command1_Click()= TrueEnd SubPrivate Sub Form_Load()= 20= 20= 20= 20End SubPrivate Sub Timer1_Timer() lbltem = = + 10If VSbwd >= 100 Then lbltishi = " 水开了" = FalseEnd IfEnd Sub运行初始界面：运行结果：自测练习1：Private Sub myhelp_Click()End SubPrivate Sub mymenu1_Click() = " 百货大楼"End SubPrivate Sub mymenu2_Click() = " 利客隆"End SubPrivate Sub mymenu3_Click() = " 稻香村"End Sub运行初始界面：运行结果界面：自测练习2：Private Sub Dis_Click() = " 菜单程序设计" = 20 = " 黑体"End SubPrivate Sub Hid_Click() = FalseEnd Sub运行初始界面：运行结果界面：自测练习3：Private Sub vbhelp_Click() r = MsgBox(" 帮助", , " 程序设计题")End SubPrivate Sub Vbnew_Click() r = MsgBox(" 新建", , " 程序设计题")End SubPrivate Sub vbopen_Click() r = MsgBox(" 打开", , " 程序设计题")End SubPrivate Sub vbsave_Click()自测练习1： r = MsgBox （"存盘”，，" 程序设计题"）End Sub运行初始界面: 运行结果: 自测练习4:Private Sub Comma nd1_Click()End Sub运行初始界面:打开萱我菊園（1）：文件名oa ） ； I立件类型电》：Ir 以只读方式打开區IPrivate Sub Command1_Click()Dim a As String, n%, i%, j%我最近皈由 O ■ \ 27 我的文趋 岡上嘟居^41121(1£S □141130110041145029 口 411旳［)13_辛诒_经济L1D1 亡J jag 己1« iT^ Temp 匚PySoEt 巴第五次实脸要貳文楼 □新建文件夹g2O074£3LS294SS£4 总听ni咫S ! O S6u_p L nyi n J& 1tfySystem已義单SCX倉第五欢实脸要求丈档四寫件基^操作测试內容回数据1国數据1®数据l.dbc0掏门鄱爰甘濒SllfU 实甜直评d Hl 取消Open "E:\" For Input As #1Input #1, a n = Len(a)For i = 1 To nIf Mid(a, i, 1) = "%" Then j = j + 1 Next iClose #1Open "E:\" For Output As #1Print #1, jClose #1End Sub运行初始界面：运行结果：自测练习3：Private Sub Form_Click()Dim x$Open "e:\" For Input As #1Do While Not EOF(1)LoopClose #1Open "e:\" For Append As #1Print #1, x$Close #1Line Input #1, x$运行初始界面：自测练习4Private Sub Form_load()Print " 26 个英文字母"PrintPrint " a b c d e f g h i j k l m n o p q r s t u v w x y z" Print " 字母个数分别为"End SubPrivate Sub Form_Click()Open "E:\" For Output As #1文本$ = InputBox（" 请输入文本"） n = UCase( 文本$)Print #1, nOpen "E:\" For Output As #1For i = 1 To Len(n)ReDim Preserve a(1 To 26) j = Asc(Mid(n, i, 1)) - 64 a(j) = a(j) + 1Next iClose #1For j = LBound(a) To UBound(a)Print a(j);Next jClose #1Dim a%()。

vb实验试题及答案VB实验试题及答案一、选择题1. VB中，用于定义变量的关键字是：A. DimB. SetC. ConstD. Function答案：A2. 下列哪个选项是VB中声明数组的正确方式？A. Dim arr(10)B. Dim arr[10]C. Dim arr(10) As IntegerD. Dim arr[10] As Integer答案：C二、填空题1. 在VB中，使用________关键字可以创建一个新过程。

答案：Sub2. 要将一个字符串变量的值赋给另一个字符串变量，可以使用________运算符。

答案：=三、简答题1. 请简述VB中如何实现循环结构。

答案：VB中实现循环结构主要有两种方式：`For...Next` 循环和`Do...Loop` 循环。

`For...Next` 循环适用于已知循环次数的情况，而 `Do...Loop` 循环适用于循环次数不确定的情况。

2. 描述VB中如何使用条件语句。

答案：VB中使用条件语句主要通过 `If...Then...Else` 结构实现。

首先使用 `If` 关键字检查条件，如果条件为真，则执行 `Then` 后的语句；如果条件为假，则执行 `Else` 后的语句。

四、编程题1. 编写一个VB程序，实现计算并输出1到100之间所有偶数的和。

答案：```vbDim sum As Integersum = 0For i As Integer = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMessageBox.Show("Sum of even numbers between 1 and 100 is: " & sum)```2. 编写一个VB函数，接受一个字符串参数，返回该字符串中字母'a'的个数。

答案：```vbFunction CountA(ByVal str As String) As IntegerDim count As Integer = 0For Each c As Char In strIf c = "a" Thencount = count + 1End IfNextReturn countEnd Function```。

VB实验指导书课后习题答案2016版VB作业参考答案(xx年3月)第1次习题 VB程序设计概述一、选择题 1 A 2 A 3 D4 C5 A6 C7 C8 B9 B 二、1、在设计阶段利用属性窗口直接设置对象的属性值，程序运行时不能改变；2、在程序运行阶段通过赋值语句实现，即通过事件触发修改属性。

对象名.属性名=属性值第2次习题 VB可视化编程基础一、选择题 1 A 2 D 3B 4C 5 A 6 B 7 C 8 B 9 A 10 C 二、填空1 2 3第3次习题 VB语言基础一、选择题 1 BH 二、 1 231AutoSize MultiLine PasswordChar 2 B 3 C 4 B 5 A 6B 7 B 8C 9 B 10 C 11 C Abs(x+y)+Z^5 /(x*y) /(2*+EXP(X+Y))三、1 2 3 4 四、1 2 3 4 5 6第4次习题 VB控制结构一、选择chr(int(rnd*4)+65) int(rnd*90)+10 x mod 5=0 or x mod 7=0 10*(x mod 10)+x\\10 或 StrReverse(x) 188 30306 876554 ；8819 VISUAL C++ Programming 1 B 11 D 21 A2 D 12 A 22 C3 A 13 A 23 C4 B 14 B5 D 15 A6 B16 D 7 B 17 B 8 C 18 D 9 A 19 B 10 B 20 A 二、填空1 2 3270 Result * x m ; t ; m 三、程序设计题1. 求函数的值。

Dim y As Long, x As Integer, i%x = InputBox(\输入X的值：\ 或者 x=val() If x ElseIf x ElseIf x y = x * x 'or y=x^2 Elsey = 25 - x End IfPrint \2. 计算机：1+3+5+……+99的值。

第一题编一程序，程序运行的初始界面，如图1-15所示，当用户在文本框输入姓名，例如输入"张三"，单击"确定"按钮，则程序的运行情况如图1-16所示，如果单击"结束"按钮，即结束程序运行。

图1-15 程序运行后初始界面图1-16 单击"确定"按钮后的程序界面第二题：编一程序，在屏幕上显示"你好，Visual Basic系统"，字体大小设为三号、颜色为红色，（见图1），单击窗体后，在窗体上显示"初次见面，请多关照！"，同时窗体上出现两个命令按钮"继续"和"结束"，如图2所示，如果单击"继续"按钮，则又回到初始运行状态；单击"结束"按钮即结束程序运行。

图1 程序运行后初始界面图2 单击窗体后的程序界面1、创建如图所示界面（含一个标签Label1，两个文本框Text1和Text2，两个按钮Command1和Command2）。

要求：在文本框Text1中输入内容，文本框Text2的内容同步改变；若文本框Text2的内容改变，则标签的标题也同步变化；单击“清空”按钮，可以清空两个文本框中的内容，同时将文本框Text1设置为当前对象；单击“结束”按钮可以结束程序。

2、创建如图所示界面：要求：在列表框LIST1中选中一项后，单击按钮“>”可以将此项移到LIST2中，单击按钮“>>”可以将LIST1中的所有项目移到LIST2中；另两个按钮的功能与此相反。

3、创建如图所示界面：在文本框中输入内容后单击“确定”按钮，可以将内容添加到列表框中；双击列表框中的某一项，可以将此列表项移到组合框中；单击“清空”按钮可以清除文本框、列表框与组合框中的内容，并且将焦点设置在文本框上；单击“退出”按钮可以结束程序的运行。

1、在窗体上创建一个命令按钮command1，完成下面操作：(1) 在form1的load事件中编写代码，使得窗体的前景色（form1.forecolor=vbBlue）为蓝色，窗体的字号为18号（form1.fontsize=18）。

(2) 在command1的click事件中编写代码，定义4个基本整型变量a，b，c，d。

给a赋值为10，b 赋值为3，求a对b整除后的商（c）和余数（d），并将商和余数输出在窗体上（print c，print d）。

解答Private Sub Form_Load()Form1.ForeColor = vbBlueForm1.FontSize = 18End SubPrivate Sub Command1_Click()a = 10b = 3c = a \ bd = a Mod bPrint cPrint dEnd Sub2、输入一个三位数，将它逆置后输出，要求将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、&等运算符）。

参考界面如下：解答法一Private Sub Command1_Click()Dim n#, a#, b#, c#, m#n = Text1.Texta = n \ 100b = n Mod 10c = (n Mod 100) \ 10Text2.Text = b * 100 + c * 10 + aEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Label2_Click()End Sub法二Private Sub Command1_Click()n = Text1.Texta = Left(n, 1)b = Mid(n, 2, 1)c = Right(n, 1)Text2.Text = c + b + aEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Label2_Click()End Sub3、完成上课讲解的分离数字的例子。

实验四专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、熟练使用单行选择结构语句 If …Then …Else2、熟练使用块选择结构语句 If … … Else … End If3、多分支块选择结构语句 If ……ElseIf … … ElseIf … … Else … End If 二、实验内容1、设计窗体,按图示设置各控件:要求:编写适当事件过程，当程序运行时，在左边三个文本框各输入一个数，单击“排序”按钮，把它们由大到小排序后，依次显示在右边三个文本框中。

P r i v a t e S u b C o m m a n d 1_C l i c k ()a = V a l (T e x t 1.T e x t ):b = V a l (T e x t 2.T e x t ):c = V a l (T e x t 3.T e x t )I f a > b T h e n t = b : b = a : a = t 'a b 相比较，大的数放在b 里，小的数放在a 里 I f a > c T h e n t = c : c = a : a = t 'a c 相比较，大的数放在c 里，小的数放在a 里 I f b > c T h e n t = c : c = b : b = t 'b c 相比较，大的数放在c 里，小的数放在b 里 T e x t 4.T e x t = c T e x t 5.T e x t = b T e x t 6.T e x t = a E n d S u b4、多分支选择结构 Select Case …Case … … Case … … …Case Else … … End Select2、设计窗体,按图示设置各控件:编写适当事件过程，当程序运行时，在左边两个文本框各输入一个数，单击“求最大值”按钮后，其中最大值显示在右迦的文本框中P r i v a t e S u b C o m m a n d1_C l i c k()a=V a l(T e x t1.T e x t):b=V a l(T e x t2.T e x t)I f a>b T h e nT e x t3.T e x t=aE l s eT e x t3.T e x t=bE n d I fE n d S u b3、按图示设置各控件，编写适当事件过程，程序运行时，在Text1、Text2分别中输入两个自然数，单击“判断”按钮，判断其为是否为自然对，分别在Text3中显示“yes”/“no”。

VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。

在学习VB的过程中，进行实验是非常重要的一部分。

本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。

实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。

参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。

参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。

欢迎利用本系统利用说明：进入主界面你会看到，上面有实验题、考试题、工具、帮忙和退出。

在实验中一共有十六个实验，如假设为灰色的，那么表示些实验题目尚未，请谅解！你能够任选一个其中一个进入实验界面。

单击考试会进入考试界面，考试界面有程序设计、程序修改、再做一题、工具、帮忙和返回，单击程序设计或程序修改，可在二者这间进行切换，如想重做一题可单击再做一题，就会产生新题目。

实验中题目上显示题目号，及你利用的时刻，主菜单有实例，实验一，实验二等,和工具，帮忙和返回，你能够自由选择做题。

如想做另外一个实验可单击返回，再选择。

工具：系统设置可进行题库设置，设置背景色可对当前的界面进行背景设置，还原背景色可使背景色还原为系统默许设置。

帮忙：可查看，思路分析、参考程序、运行情形、及保留途径。

程序设计题的操作步骤是：1．考生能够在考生目录中找到工程文件，双击打开该工程文件，感动工程文件；2、程序界面设计，要求考生设置窗体指定的一些属性、在窗体添加控件，并设置控件的某些属性；3、编写或修改程序代码，依照题目代码窗口顶用---n---（n为1，2，3，4，5）部份删除后改成适合的内容，调试运行程序使其达到该题目的要求。

在调试进程中，考生可通过运行考生目录下的文件来查看程序的最终成效。

把自己完成的程序运行同它比较，假设有不同再次检查你的界面设计和程序代码是不是正确。

使最后程序运行成效与运行结果相同。

再按要求保留工程。

若是你的运算机中没有工程，你必需先自己新建一工程，按题目的要求设计界面、添加所需控件和设置相关属性，然后将题目所附的参考程序输入，将其顶用---n---（n为1，2，3，4，5）部份删除后改成适合的内容，调试运行程序使其达到该题目的要求。

程序调试题的操作步骤是：1．要求考生成立一工程，将这一模块程序添加到工程中。

若是你是通过双击标准模块程序进入Visual Basic系统的，那么第一需要添加一个窗体模块。

2．将该标准模块程序中代码的指定的错误修更正确或在指定的空位填上适当的语句，并在窗体模块中编写代码（常常写在窗体的Click()事件中）挪用标准模块中的Sub进程或用户自概念函数（若是在标准模块程序有多个进程或函数，要注意挪用的前后顺序，不然得不到正确结果），调试运行程序，使其能输出正确结果。