VB--过程练习题
《Visual Basic 程序设计》寒假作业
一、选择题
1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。
A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n)
C． Sub swap(m, n) D． Sub swap(By Val m, n)
2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。
A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递
3．Sub过程与Function过程最根本的区别是_______。
…
A． Sub过程可以直接使用过程名调用，而Function过程不可以
B． Function过程可以有参数，而Sub过程不可以
C．两种过程参数传递方式不同
D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。
A． ByVal B． ByRef C． Value D． reference
5．可以执行“工具”菜单中的_______命令来建立通用过程。
A．添加过程 B．通用过程 C．添加模块 D．添加窗体
】
6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2
A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y)
7. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Command1_Click()
a = 6:
b = 4
Call sub1(a, b)
= a
：
= b
End Sub
Private Sub sub1(ByVal x As Integer, ByVal y As Integer)
a = x * x
b = y * y
End Sub
程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
A． 36和4 B． 6和4 C． 36和8 D． 6和8
?
8. 设有如下通用过程：
Public Function fun(x As Integer)
Dim y As Integer
x = 30: y = 4
fun = x * y
End Function
在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
/
Static x As Integer
x = 20: y = 10
y = fun(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。
A． 20 10 B． 30 10 C． 20 4 D． 30 120
9．以下叙述中，不正确的是_______。
￥
A．过程中的形式参数是局部变量。
B．不同的过程中可以使用相同名字的局部变量。
C．在一个过程内定义的变量只在本过程范围内有效。
D．在一个过程内的局部变量与全局变量同名时，起作用的是全局变量。
10．以下关于过程参数的叙述中，错误的是_______。
A．按值传递参数，形参和实参的类型可以不同，只要相容即可。
B．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合。
C．形参的数据类型如果是String，它可以是定长的，但在调用时对应的实参只能是定长的。
|
D．在过程被调用之前，形参未被分配内存，只是说明形参的类型和在过程中的作用。11．假设有如下过程：
Public Sub sfun(x As Single, y As Single)
t = x
x = t / y
y = t Mod y
End Sub
在窗体中添加一个命令按钮（名为Command1），编写如下事件过程：
》
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = 5:
b = 4
Call sfun(a, b)
MsgBox a & Chr(10) + Chr(10) & b
End Sub
打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为_______。
·
A． 1和1 B．和1 C．和4 D． 5和4
12. 使用Function语句定义一个函数过程，其返回值的类型为_______。
A．只能是符号常量
B．是除数组之外的简单数据类型
C．可在调用时由运行过程决定。
D．由函数定义时As子句声明
13．下面程序的输出结果是_______：
Private Sub proc(ch As String)
—
s = " "
For k = Len(ch) To 1 Step -1
s = s & Mid(ch, k, 1)
Next k
ch = s
End Sub
Private Sub Command1_Click()
ch$ = "ABCDEF"
]
proc ch
Print ch
End Sub
A． ABCDEF B． A C． FEDCBA D． F
14．在窗体上绘制一个名为Command1的命令按钮和两个名为Label1、Label2的标签，然后编写如下程序：______
Private x As Integer
Private Sub proc(a As Integer, ByVal b As Integer)
x = a * a
、
y = b + b
End Sub
Private Sub Command1_Click()
x = 5: y = 3
Call proc(x, y)
= x
= y
}
End Sub
A． 25和3 B．5和3 C． 25和6 D． 5和6
15．以下是一个能返回数组a中最大数的函数过程代码：
Function maxval(a() As Integer) As Integer
Dim max%
max = 1
For i = 2 To 10
If a(i) > a(max) Then max = k
$
Next i
maxval = max
End Function
程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是______。
A．语句“max = 1”应改为“max = a(1)”
B．语句“For i = 2 To 10”应改为“For i = 1 To 10”
C． if语句“max = k”应改为“max = a(k)”
D．语句“maxval = max ”应改为“maxval = a(max)”
|
二、判断题
1．Sub过程中不能嵌套定义Sub过程。( )
3．函数过程形参的类型与函数返回值的类型没有关系。（）
4．在函数过程中，过程的返回值可以有多个。（）
5．用数组作为过程的参数时，既能以传值方式传递，也能以传地址方式传递。（）
6．形式参数是数组时，不能进行维数说明，只能以一对空括号表示，且括号不能省略。（）
7．形式参数只在所在过程中有效，因此属于局部变量。（）
8．在不同的模块中可以声明定义相同名字的模块级变量，它们代表不同的对象，而且作用域范围不同，因此互不干扰。（）
$
9．过程名前加Static，表示该过程内的局部变量都是静态变量。（）
12．Sub子过程的过程名不能和同一级别的变量重名。（）
14．函数只能出现在表达式中，其功能是求得函数的返回值。（）
16．若形参是按地址传递的参数，形参和实参不能以按值传递方式进行形实结合。（）
17．当实参是常量、表达式形式，则不论其对应形参前定义成什么方式，系统都强制按值传递参数。( ) 18．在标准模块中定义的全局变量，在本应用程序的任何一个过程中都可直接用它的变量名来访问。（）
三、填空题
1．窗体事件过程名由“________”、下划线和事件名组成。
*
2．按传地址方式传递参数时，要求实参必须是______，此时实参与形参变量共有同一个存储单元。3．运行以下程序，输出的结果为_______________。
Private Function jc(x As Integer) As Long
Dim i As Integer
jc = 1
For i = 1 To x
jc =jc * i
Next i
&
End Function
Private Sub Form_Click（）
Dim he as Long
he = jc(5)+ jc(3)
Print he
End Sub
4．以下是一窗体的单击事件代码：
Private Sub Form_Click()
—
Static count%
count = count + 1
Print "单击窗体"; count; "次"
End Sub
第3次单击窗体后，count的值为_______。
5．运行以下程序，输出的结果为__________。
Private Function fact(n As Integer) As Integer
fact = 1
【
Do While n > 0
fact = fact * n
n = n - 1
Loop
End Function
Private Sub Form_Click()
Dim sum As Integer, i As Integer
For i = 4 To 1 Step -1
@
sum = sum + fact(i)
Next
Print "Sum="; sum
6．下面程序运行后，单击命令按钮，窗体上输出的结果是：2 3 和_____。
Dim x As Integer, y As Integer
Private Function f(x As Integer)
Dim y As Integer
%
x = x + 2
f = x + y
End Function
Private Sub p(ByVal z As Integer)
x = y + z
End Sub
Private Sub Command1_Click()
x = 1: y = 1
]
Call p(x)
z = f(y)
Print x; y; z
End Sub
7．在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为Text1），编写事件代码如下：Private Sub p1(a As Integer, b As Integer, c As Integer)
c = a + b
End Sub
~
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x = 5: y = 7: z = 0
= ""
Call p1(x, y, z)
= z
End Sub
运行程序，单击命令按钮，文本框中显示的内容是____。
《
8．在窗体上添加一个文本框（名为Text1）和一个命令按钮（名为Command1），编写如下的事件过程：Private Sub Command1_Click()
Dim arr(5) As Integer
For i = 1 To 5
arr(i) = i
Next
m = 20
Call fun1(arr, m)
{
= m
End Sub
Public Sub fun1(a() As Integer, ByVal x As Integer)
For i = 1 To UBound(a)
x = x + a(i)
Next
End Sub
运行程序，单击命令按钮，文本框中显示的内容是______。
9．下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出，例如：输入5678，则输出8765，输入1000，则输出0001，请填空。
Private Sub Command1_Click()
Dim x As Integer
x = InputBox("请输入一个正整数")
While x >= _________
Print x Mod 10;
x = x \ 10
Wend
Print x
End Sub
10．设有以下函数过程：
Function fun(m As Integer) As Integer
Dim k As Integer, sum As Integer
sum = 0
For k = m To 1Step -2
sum =sum+k
Next k
fun=sum
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为___________。
VB实验报告
VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行 时在窗体上单击，分别会发生什么情况，为什么？ ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I
End Sub 第一个程序运行的结果是： 点击一次窗体便会出现一个“10” 第二个程序的运行结果是： 也是点击一次窗体出现一个“10” 第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：
在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是： 第二个程序运行的结果是：
二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果：" ’在屏幕上输出“输出结果：” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub
vb的操作题(有标准答案)
1.(1）在考生文件夹中有工程文件sj12６.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有１０个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找＂按钮,则找出数组中的最大值(或最小值）,并显示在标签Ｌabｅl２中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private SuｂCommanｄ1_Click() x ＝ａ（１) y = a（1) Fｏr ｉ＝ 2 To 10 If Opｔion1.Valｕｅ = Ｔrue Ｔheｎ If a(i)>x Then ｘ= ａ(i) Ｅｎd Ｉf
ＥlseIｆａ(i) < y Theｎ y = a(i) Ｅnd Ｉｆ Next If Option1.Vaｌue ＝ True Theｎ Labｅl2．Cａption ＝ x Eｌsｅ Ｌaｂel2.Caption = y Enｄ Iｆ Ｅnd Suｂ 2.(2）在名称为Form1的窗体上画一个名称Ｓｈａｐe1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List１的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、５。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sｊ107.vbp，窗体文件名为ｓｊ１0７.ｆｒm。 在Shape控件中,可以用FｉlｌStyle属性设置图形的填充图案，0:透明，2:虚线，3：点线，4:点划线，５:双点划线,6：内实线。 Ｌisｔ控件的Clｉck事件过程为： Private Ｓｕb Ｌｉst１＿Clｉck() Shapｅ1.FiｌlStyｌe = Lｉst１.Text EnｄＳub
vb实验教程答案
第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j
VB实验报告8
台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5
一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i)> x Then x = a(i) End If
ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。 在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。 List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；
vb程序设计实验教程习题答案
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
VB电子教案
教案
讲稿 第一章引言 [新课导入]： 导入方式：通过复习计算机语言基础知识，导入vb语言的功能及学习方法 导入目的：增强学生的学习积极性 导入时长：大约5分钟 [新课讲授]： 重点： 1）了解程序与程序设计语言 2）了解VB的集成开发环境 3）掌握简单应用程序的建立过程 难点：1）简单应用程序的建立过程 2）窗体简单应用程序的建立过程 方法：运用多媒体辅助教学，采用案例教学和任务驱动等教学法 1.1程序与程序设计语言 计算机程序设计语言,通常简称为编程语言,是一组用来定义计算机程序的语法规则。 计算机的工作原理——“存储程序”（存储程序和程序控制） 程序设计语言大致有三类：机器语言，汇编语言，高级语言 1. 机器语言 2. 汇编语言 3. 高级语言 1.2 Visual Basic 简介 Visual Basic是从BASIC语言发展而来的，是开发Windows环境下图形用户界面软件的可视化工具。Visual意指“可视的”，在Visual Basic中引入了面向对象的概念，把各种图形用户界面元素抽象为不同的控件，如各种各
样的按钮、文本框和图片框等。 1.3 Visual Basic的集成开发环境 VB的集成开发环境除了Microsoft应用软件常规的标题栏、菜单栏、工具栏外，还包括VB的几个独立的窗口，如图1-2所示。VB应用程序的开发过程几乎都可以在集成环境中完成。 图1-1 VB应用程序集成开发环境 1.4 建立简单的应用程序 VB可视化编程不需要编写大量的代码去描述界面元素的外观和位臵，而是采用面向对象、事件驱动的方法。VB的对象已被抽象为窗体和控件，因而大大简化了程序设计。用VB开发应用程序，一般包括3个主要步骤：建立用户界面、设臵窗体和控件的属性、编写代码。 （1）建立用户界面。用户界面由窗体和控件组成，所有控件都放在窗体上，程序中的所有信息都要通过窗体显示出来，它是应用程序的最终用户界面。在应用程序中要用到哪些控件，就在窗体上建立相应的控件。
VB课程实验报告
山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val
If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
初识VB》教学设计
《初识V B》教学设计一、学生分析 本节课的授课对象为初三年级学生，这阶段的学生理解能力和接受能力较强。初一年级时学生已学习了一些程序设计语言的概念，知道计算机能直接认识的语言为机器语言，为本节课的学习打下了一定的基础。 二、教材内容分析 1、本节的主要内容及在本章中的地位 本节课教学内容为九年级下册第1章第1、2节的内容，主要学习程序、程序设计语言的概念和VB的创建工程、设计界面、编写程序、保存文件、运行程序等操作方法 2、教学重点、难点 重点：程序的概念和作用、创建VB程序的一般步骤和方法 难点：程序的作用、窗体文件和工程文件的保存 3、课时安排：1节 三、教学目标 1、知识与技能 （1）了解程序的概念以及程序在计算机中的作用 （2）了解程序设计语言的不同类型、特点和发展趋势 （3）了解程序设计的方法 （4）了解VB程序设计环境，知道在VB程序设计环境中创建程序的一般步骤和方法 （5）了解VB，学会用VB创建第一个程序 2、情感态度价值观 （1）注重学生的自学能力的培养。
（2）鼓励学生动手、动脑，培养勤于动手、主动探究的精神。 （3）培养学生利用信息技术解决实际问题的能力。 四、教学理念和方法 1．对于程序与程序设计语言等概念，学生学习起来较枯燥，故先安排学生带着教师提出的几个问题，看书思考和自学，再由教师组织学生个别回答、师生举例、师生讨论、归纳等活动来将几个概念弄清楚。 2．对于VB软件的学习，教师先展示一个由VB开发的小游戏，师生一起参与游戏的使用，让学生感受到VB软件的实用性，充分调动学生积极使用VB开发小程序的愿望，再由教师示范讲解VB程序设计环境中创建程序的一般步骤和方法，最后由学生动手尝试使用VB。 五、教学资源 教学硬件：教师机1台、学生机60台、液晶投影仪1部 教学软件：windows xp、达道多媒体教学软件、自制的教学课件 五、教学过程设计
VB实验报告一
本科实验报告 课程名称：人机界面程序设计基础 实验项目：一、VB环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日
一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机
四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图
vb实验作业参考答案
VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)
作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width
VB操作题答案
第一次作业 Private Sub Command1_Click() Text1.Text = "欢迎你学习VB程序设计" Text1.ForeColor = vbGreen Text1.Font = "宋体" Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = "隶书" Text1.Text = "佛山大学理学院" End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = "你好，你需要什么" Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = "谢谢你，再见！" End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = "12345" Then Command1.Enabled = True Text1.PasswordChar = "*" End Sub 第三次
VB程序设计学习与实验指导答案
Visual Basic 程序设计学习与实验指导答案 上篇学习指导 第1章Visual Basic 概述 1.事件 2.查看对象 3.工程 4.视图属性窗口 5.窗体编辑器 第2章面向对象程序设计初步 1.控件 2.事件 3.类属性 4.属性 5.略 https://www.wendangku.net/doc/177550151.html, 第3章Visual Basic 语言基础 1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+1
2.mod 3.X=Int(X) And Y=Int(Y) And X*Y>0 4. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=0 5.x=Int((99-10+1)*Rnd+10) 6.0 “” 7.空格 8.6，845.30 9. （1）8 （2）1 （3）abcd （4）出错，类型不匹配 （5）False （6）2008-6-29 （7）I likeVB （8）4 （9）4 4 （10）3 4 （11）10 -10 （12）-1 （13）aa （14）3 （15）0 （16）1 （17）C （18）5 （19）8 （20）34.54 （21）中国 （22）上海 （23）VISUAL BASIC （24）visual basic 10. （1）x<-100 or x>100 （2）a=Int(a) And b =Int(b) Or a<0 And b<0 （3）x<=y or x>=z （4）a>0 And a<>Int(a) （5）a=0 xor b=0 （6）Len(S)<10 （7）UCase(S)=S （8）Left(S,1)=”a” And Right(S,1)=”a” （9）Instr(S,”@”)<>0 （10）Trim(S)=S （11）Date=#8/8/2008#
VB实验报告模板
课程编号：B080103140 https://www.wendangku.net/doc/177550151.html,程序设计 实验报告 东北大学软件学院
1.实验目的 （1）练习https://www.wendangku.net/doc/177550151.html,的控件的综合运用。熟悉https://www.wendangku.net/doc/177550151.html,的集成开发环境，掌握https://www.wendangku.net/doc/177550151.html, 编程技巧和开发过程。 （2）训练学生对https://www.wendangku.net/doc/177550151.html,的基本语句、控件、文件等的综合运用。 2.实验内容 （1）https://www.wendangku.net/doc/177550151.html,控件综合应用。 （2）https://www.wendangku.net/doc/177550151.html,文件操作——具体的名称（需要替换并变为黑色）。 3.程序中使用的控件及其命名 把程序中用到的控件类型及对应的名称以表格的形式给出，表格的行数可以根据需要进行扩充。 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。 （1）实验1的控件及命名 （2）实验2的控件及命名 4.系统实现与调试 把主要实现的功能用语言进行描述，并给出调试时的截图（主要是功能验证的截图，在结算时，是否能正确的找零等） 如果包含图片，图片要居中，而且图片的高度不能超过页面高度的1/3。 （1）实验1的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。 注意说明文字需要删除，不能保留在文档中。
（2）实验2的系统实现与调试 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 5.创新点及存在问题 列举出主要的创新点和存在的问题。正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。 6.实验总结 正文字体为“宋体五号”，并且为黑色，首行缩进2个汉字，如包含英文，用“Times New Roman”，行间距为“多倍行距”，设置为1.25（从弹出菜单的“段落”菜单项进行设置，或利用“格式刷”直接从本说明刷取格式）。注意说明文字需要删除，不能保留在文档中。
vb新操作题(含答案)
一、操作题,每题 10分,6 题共60分 【第4题】 打开文件“考生文件夹\175\工程1、vbp”,完善Command1_Click事件及s函数代码并保存。 实现功能:用递归法求1+2+3+…+100的值,结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 【第5题】 打开文件“考生文件夹\851\工程1、vbp”,完善程序实现如下功能并保存: 花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35！ Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End If End If ①1 ②text1、text ③s(n) ①1 ②n ③100
End Function Private Sub Command1_Click() Dim n As Integer n = Val(②) Label1、Caption = Str(③) End Sub 【第6题】 打开文件“考生文件夹\861\年龄问题、vbp ”,完善程序实现如下功能并保存: 有5个人坐在一起,第5个人说她比第4个人小3岁;第4个人说她比第3个人小3岁;第3个人说她比第2个人小3岁;第2个人又说她比第1个人小3岁;第1个人说她就是38岁。编写程序,计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End Sub Function age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③ End Function 【第3题】 打开文件“考生文件夹\89\工程1、vbp ”,完善Command1_Click 事件代码并保存。 乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1、5%计算。 实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。 Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1、Text) pj = Val(Text2、Text) If w <= 20 Then ① Else fy = (w - 20) * pj * 0、015 ② Text3、Text = ③ End Sub 【第4题】 打开文件“考生文件夹\122\工程1、vbp ”,完善Command1_Click 事件代码并保存。 王晓珊家距离学校s1(千米),某天她与李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果她们同时到达学校。
Vb上机实验答案
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.wendangku.net/doc/177550151.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()
vb趣味程序课程教案
教学进度表
一、了解计算机语言 各种软件，包括Windows、Word、PowerPoint、各种游戏等都是计算机语言编写出来的。（演示）如贪吃蛇游戏、健康指标计算器等等。 常见的高级语言 1.BASIC。入门者首选语言。指令少，容易上手，易于掌握。 2.PASCAL。适合科学计算、数据处理，运行编译速度快。 3.C语言。主要适用于应用软件的开发，计算机专业人员的必修课。 4.JAVA、.Net、PHP、C#、HTML…… 二、VB语言介绍 VB是Visual Basic的简称，它对学习者的要求不高，但本身效率高、功能强大、实用性强。主要有如下特点：面向对象、事件驱动、软件的集成式开发、结构化。 面向对象和面向过程的区别： 例如五子棋，面向过程的设计思路就是首先分析问题的步骤： 1、开始游戏， 2、黑子先走，
四、制作QQ登录界面 【学生练习】 完成QQ登录界面的制作，并保存工程提交。 教学 后记 授课时间2014年9月23日第4周星期2 总第2课时课题VB程序设计的过程 课型新授课教学时数1课时 教学（一）知识与技能：
目标了解计算机语言； 熟悉VB开发环境 了解VB中的对象、属性、事件 学会编写窗体的设计代码，并能运行程序 （二）过程与方法： 通过QQ登陆窗体的制作了解并掌握程序编写的整个过程 （三）情感、态度与价值观： 通过制作学生最熟悉的QQ登录界面，使学生对VB程序设计产生浓厚的兴趣。 教材分析 重点属性、方法和事件 难点VB的集成开发环境 教学方法讲授法、演示法、练习法、任务驱动法 教学情景设计 【新课引入】 【新课讲授】 对象名称属性、方法或事件(属性、方法或事件)作用说明 登陆窗体Form1 Height属性、Width属 性窗体的高度和宽度
VB实验报告1
台州学院 《VB程序设计》实验报告 实验一：Visual Basic环境和程序设计初步 班级： 学号： 姓名： 实验日期：
一、实验目的和要求 1．了解VB系统对计算机软、硬件的要求； 2．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程； 3．初步熟悉几个常用控件的使用方法。 4．掌握启动与退出VB的方法。 二、实验主要仪器和设备 计算机一台，Windows XP操作系统，Visual Basic环境。 三、实验内容 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。 图1-1 程序运行初始界面 图1-2 单击“显示”按钮后的程序界面 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”
按钮变为不可用（图1-4）。 图1-3 第1题的程序运行初始界面 图1-4 单击“改变文字”按钮后的程序界面 图1-5 单击“隐藏”按钮后的程序界面 四、实验原始记录 实验1.1 程序的界面设计。（可以是多张主要的图。下面的图要替换成你们自己设计的图。如何取图？设计好界面，按“Print Screen SysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“Ctrl + C”键，然后选中下面的实验样例图，按“Ctrl + V”键，替换掉）