vb刘必雄上机答案

1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分）

参考答案：

Private Sub Form_Click() Cls

For i = 1 To 9 For j = 1 To i

Print i * j; \ Next j Print Next i End Sub

2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。

要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）

参考答案：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value En

第二部分 浙江省VB二级试题解

A．程序调试题 一、选择结构

程序调试01

Option Explicit

Public Sub getanswer()

'该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c#

a = InputBox(\输入系数a\ b = InputBox(\输入系数b\ c = InputBox(\输入系数c\dalt = b * b - 4 * a * c if ----1---- then dalt = Sqr(dalt)

MsgBox Format((-b + dalt) / 2 / a), \a, \

elseif ---2---- then

MsgBox Format(-b / 2 / a, \ Else

dalt= ---3----

MsgBox Format(-b / 2 / a, \+ Format(-b / 2 / a, \ End If End Sub

二、单重循环

程序调试02

Option Explicit ‘这条语句要求在该模块中，使用变量前必须先声明。 Public Sub Uppersen()

'该过

第1章 上机练习

1. 熟悉Visual Studio .NET的IDE界面，练习窗口的浮动、停靠，工具栏的定制。 2. 模仿书中的例子，编写“Hello，Visual Basic .NET”程序。

3. 学会使用帮助，在编写程序时使动态帮助始终打开，注意观察动态帮助窗口中内容的变

化。

4. 在帮助菜单下选择对“帮助的帮助”，阅读其中的内容，学习帮助的使用。 5. 在窗体上选中不同的控件，按下F1，阅读显示的内容。

第2章 上机练习

1． 使用文本框、标签和按钮，编写一个计算年利息的程序。用户输入本金、年利率、年限

计算应得的利息。

2． 编写程序在窗体上放置1个TextBox控件和4个Button控件。分别按下这4个按钮，可

以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。

3． 写一个简单的程序来证明当按钮具有焦点时按下回车键，将引起按钮的单击事件。 4． 在窗体上放置4个排成矩形的按钮，每个按钮的标题都是PushMe！。当用户单击其中一

个按钮时，此按钮便会消失，其它3个依然存在。

5． 窗体有2个文本框，用户可以在其中输入信息，单击其中一个文本框，会变成空白，其

中的信息转移到另一个文本框。

6． 在窗体上放置3个文本框，按下Tab键后

第1章 上机练习

1. 熟悉Visual Studio .NET的IDE界面，练习窗口的浮动、停靠，工具栏的定制。 2. 模仿书中的例子，编写“Hello，Visual Basic .NET”程序。

3. 学会使用帮助，在编写程序时使动态帮助始终打开，注意观察动态帮助窗口中内容的变

化。

4. 在帮助菜单下选择对“帮助的帮助”，阅读其中的内容，学习帮助的使用。 5. 在窗体上选中不同的控件，按下F1，阅读显示的内容。

第2章 上机练习

1． 使用文本框、标签和按钮，编写一个计算年利息的程序。用户输入本金、年利率、年限

计算应得的利息。

2． 编写程序在窗体上放置1个TextBox控件和4个Button控件。分别按下这4个按钮，可

以把文本框的背景色分别设置为红色、蓝色、黑色和绿色。

3． 写一个简单的程序来证明当按钮具有焦点时按下回车键，将引起按钮的单击事件。 4． 在窗体上放置4个排成矩形的按钮，每个按钮的标题都是PushMe！。当用户单击其中一

个按钮时，此按钮便会消失，其它3个依然存在。

5． 窗体有2个文本框，用户可以在其中输入信息，单击其中一个文本框，会变成空白，其

中的信息转移到另一个文本框。

6． 在窗体上放置3个文本框，按下Tab键后

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，

请务必认真！) ．．．．．．

实验一：第二章

⒈ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。

Private sub command1_click() Label1.visible=false

Command1.caption=label1.caption End sub

⒉ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。

上机代码：Private sub command1_cl

VB后半学期练习题

1、 编制通用函数过程，计算1+2+??+N 的值。在窗体的Click事件中调用该函数。 Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next i End Function

Private Sub Form_Click() Print sum(100) '任意选取一个数对函数过程进行调试就可 End Sub

2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 Private Function fact(n As Integer) As Double Dim i As Integer

fact = 1 '必须赋初值 For i = 1 To n fact = fact * i Next i End Function

Private Sub Form_Click() Print fact(5) End Sub

VB后半学期练习题

1、 编制通用函数过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。 Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next i End Function

Private Sub Form_Click() Print sum(100) '任意选取一个数对函数过程进行调试就可 End Sub

2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 Private Function fact(n As Integer) As Double Dim i As Integer

fact = 1 '必须赋初值 For i = 1 To n fact = fact * i Next i End Function

Private Sub Form_Click() Print fact(5) End Sub

1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。

Text1

Text2

Private Sub Command1_Click()

Text1.Font = 黑体

End Sub

Private Sub Command2_Click() Text1.ForeColor = vbRed

Text2.ForeColor = vbBlue End Sub

Private Sub Command3_Click() End End Sub

2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。

Private Sub Command1_MouseDown(Button As Integer,

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2002年秋）

二级 Visual Basic 语言（试卷代号VB03）

（本试卷完成时间 70分钟）

[试卷须知]

1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；

3． 程序代码书写应呈锯齿形。 一、改错题（17分）

[题目]所谓的完全数是一个整数N的因子和（不包括N）等于N。例如6=1+2+3，6是完全数。编写程序验证；两位以上的完全数，把它们的各位数字加起来得到一个数，再把这个数的各位数字加起来又得到一个数，一直做下去，直到得到一个一位数，这个数是1。过程WanShu的功能是找完全数。

Option Explicit

Private Sub Command1_Click()

Dim I As Integer, K As Integer, St As String For I = 10 To 500 If Wanshu(I) Then St = CStr(I)

text1.Text =

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2010秋）

二级 Visual Basic语言 （试卷代号VB02）

（本试卷完成时间 70分钟）

【考试须知】

1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分；

3． 程序代码书写应呈锯齿形。 一、改错题（14分）

【题目】本程序的功能是，查找首末两位数字之和与中间两位数字之和相等的素数。 Option Explicit

Private Sub CmdFind_Click()

Dim I As Integer, Fg As Boolean Dim Bl As Boolean For I = 1001 To 9999 Fg = False Call PD(I, Fg)

If Prime(I) And Fg Then List1.AddItem I Next I End Sub

Private Function Prime(N As Integer) As Bo