VB程序设计教程实验指导与习题解答上机答案

自测1

程序代码

Private Sub Command1_Click() = + 3

End Sub

Private Sub Command2_Click() = True

End Sub

Private Sub Command3_Click() = True

End Sub

Private Sub Command4_Click() = 10

= False

= False

End Sub

初始窗口：

单机放大之后窗口：

单机下划线之后窗口：

单击加粗之后窗口：

单击还原之后窗口：

自测2

程序代码

Private Sub Command1_Click() Label1 = "visual basic"

Text1 = "程序设计题"

End Sub

Private Sub Command2_Click() Text1 = "visual basic"

Label1 = "程序设计题"

End Sub

初始窗口：

单击显示之后窗口：

单击交换之后的窗口：

自测题3

Private Sub Command1_Click() = *

End Sub

Private Sub Command2_Click() = + 30

= + 20

= 1

End Sub

初始窗口：

单击缩小两倍之后的窗口：

单击向右下角移动之后的窗口：自测题4

程序代码

Private Sub Command1_Click() = "VB学习"

Print "简单的VB程序设计" End Sub

Private Sub Command2_Click() Cls

End Sub

Private Sub Command3_Click() End

End Sub

Private Sub Command3_Click() End

End Sub

初始化窗口：

单击显示之后的窗口：

单击清除之后的窗口：

单击退出之后的窗口：

自测题5

程序代码

Private Sub Command1_Click() = ""

= ""

End Sub

Private Sub Command2_Click() = Val + Val

End Sub

Private Sub Command3_Click() End

End Sub

初始化窗口：

单击运算之后窗口：

单击清除之后的窗口：

单击退出之后的窗口：

自测练习1

Private Sub Command1_Click()

Dim a$

a =

= Left(a, 2)

End Sub

Private Sub Command2_Click()

a =

= Right(a, 2)

End Sub

Private Sub Command3_Click()

= &

End Sub

初始窗口界面

输入字符串

截取前两个字符

截取后两个字符

字符串连接

自测练习2

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349

e = a Mod 10 '个位

d = (a \ 10) Mod 10 '十位

c = (a \ 100) Mo

d 10 '百位

b = a \ 1000 '千位

i = (e + 7) Mod 10 '个位

h = (d + 7) Mod 10 '十位

g = (c + 7) Mod 10 '百位

f = (b + 7) Mod 10 '千位

j = i

i = f '交换后的个位

f = j '交换后的千位

k = h

h = g '交换后的十位

g = k '交换后的百位

l = f * 1000 + g * 100 + h * 10 + i

= False

Print "加密前的4位整数是7439"; (Chr(10)); "加密后的结果是"; l End Sub

初始界面

单击窗体运行后的界面

自测练习1

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f!

a = Val(InputBox("输入第一个数", "输入一个数", 8))

b = Val(InputBox("输入第一个数", "输入一个数", 7))

c = a + b

d = a - b

e = a * b

f = a / b

f = Fix(f * 100 + / 100

MsgBox "x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10) & "x/y=" & f, , "输出的结果"

End Sub

自测练习2

Private Sub Form_Click()

Dim a%, b%, c%, d%, e%, f!

a = Val(InputBox("输入第一个数的值"))

b = Val(InputBox("输入第二个数的值"))

c = Val(InputBox("输入第三个数的值"))

d = Val(InputBox("输入第四个数的值"))

e = a + b + c + d

f = e / 4

Print "和="; e

Print "平均值="; f

End Sub

自测练习3

Private Sub Form_Click()

Dim h%, f%, x%, y%

h = Val(InputBox("输入总头数"))

f = Val(InputBox("输入总脚数"))

x = (4 * h - f) / 2

y = (f - 2 * h) / 2

Print "笼中鸡的头数为"; 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 Then

If a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a Then Print "直角"

ElseIf a = b And b = c Then

Print "等边三角形"

ElseIf a = b Or a = c Or b = c Then

Print "等腰三角形"

Else

Print "一般三角形"

End If

Else

Print "不是三角形"

End If

End 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, b

Else

End

End If

End Sub

初始化窗口：

输入一个数：

运行结果：

自测练习3

Private Sub Command1_Click()

Dim a%, b%

a = Val

Select Case a > 0

Case a < 20

MsgBox "行李费为元/kg", , "行李费"

Case a >= 20 And a < 50

MsgBox "行李费为元/kg", , "行李费"

Case a >= 50 And a < 100

MsgBox "行李费为元/kg", , "行李费"

Case Else

b = * 100 + (a - 100) * : MsgBox "行李费为" & b & "元", , "行李费" End Select

End Sub

初始窗口：

输入10：

输入25：

输入55：

输入120：

自测练习1

Option Base 1

Private Sub Form_Click()

Dim i%, a(1 To 20) As Integer a(1) = 1: a(2) = 1

Print a(1);

Print a(2);

For i = 3 To 10

a(i) = a(i - 1) + a(i - 2) Print a(i);

Next i

Print

For i = 11 To 16

a(i) = a(i - 1) + a(i - 2) Print a(i);

Next i

Print

For i = 17 To 20

a(i) = a(i - 1) + a(i - 2)

Print a(i);

Next i

初始界面：

运行结果界面：

自测练习2

Option Base 1

Private Sub Form_Load()

= 10000

= 5000

End Sub

Private Sub Command1_Click()

Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4

For j = 1 To 4

a(i, j) = Int(Rnd * 10) + 1 a(i, j);

Next j

Next i

"对角线的元素如下"

For i = 1 To 4

a(i, i);

Next i

For i = 1 To 4

a(i, 5 - i);

Next i

For i = 1 To 4

t = a(1, i)

a(1, i) = a(4, i) a(4, i) = t

Next i

For i = 1 To 4

t = a(i, 2)

a(i, 2) = a(i, 3) a(i, 3) = t

Next i

For i = 1 To 4 For j = 1 To 4

a(i, j);

Next j

Next i

End Sub

运行初始界面：

运

运行结果界面：

自测练习1

Sub itostr(a As Integer)

Dim b%, c$

a = Val

While a >= 1

c = Chr(a Mo

d 10 + 48) & c

a = a \ 10

Wend

= c End Sub

Private Sub Command1_Click()

Dim a As Integer

a = Val

Call itostr(a)

End Sub

运行初始界面：

运行结果界面：

验证其他数字：

自测练习2：

Public Function area(n) As Double Dim c#, d#, e#, s#

n = Val

c = (1 - 0) / n

While e <= 1

d = I * c:

e = (I + 1) * c

s = s + (Sin(d) + Sin(e)) * c / 2

VB上机综合测试题(十五套)

VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）

答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

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题库—程序设计[1]

程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)

vb全部上机练习题

VB上机练习题3 1、实验教材P9 (1) 2、实验教材P9 (2) 3、实验教材P9 (3) 4、在窗体上设计一个标签，要求标签有边框，当程序运行时标签中显示内容为“验证性实验”，窗体的背景颜色为“黄色”，当单击标签时，显示的内容水平居中对齐，双击标签时，标签的背景透明。 5、按照下面窗体的式样设计窗体界面，然后编写程序代码实现下面的加法器功能：当程序运行时单击“出题”按钮，分别在文本框Text1和Text2中随机出[10—90]之间的两位整数（提示：用随机函数Rnd），当单击“=”按钮时，在文本框Text3中显示计算的结果，单击“清除”按钮时，三个文本框中的内容全部清除。 VB上机练习题4 1、设a=2, b=3, c=4, d=5, 求下列表达式的值，将答案写在每题的后面。 (1) a+c < b+d (2) a+b <> c+d (3) a > b AND c<=d (4) b < c AND d>a (5) a < c OR d<=b (6) a > b OR c<=d (7)NOT a>b OR c>=d (8)3>2*b OR a=c AND b <> c OR c< d 2、将下列数学式子写成vb表达式，将答案写在每题的后面。 (1) 5+(a+b)2 (2)e2+2 (3)2a(7+b) (4)8e3ln2 (5) (6) 3、将答案写在每题的后面。 (1) (2)print chr(97) (3)print Asc(“B”)

(4)print Asc(“def”) (5)print Sqr(2) (6) print sgn(2) 4、写出下列程序的运行结果，将答案写在每题的后面。 设ab$=”ABCDEF” (1)Print Left(ab$ , 4) (2)Print Mid(ab$ , 2, 4) (3)print Right(ab$ , 4) (4)print Len(ab$) 5、按照运算符的运算顺序(函数>算术运算符>关系运算符>逻辑运算符) 计算表达式的值：10\ 97 / Asc(“a”)*(18.7 mod 4)+Int(8.7-5.5) 6、产生[10，100]区间内的随机整数使用________________________语句？ 7、实验教程P10 （6）。 8、编写程序，要求程序运行时在四个文本框中分别任意输入相应的信息（见下图），当单 击“计算”按钮时在窗体中按照下图格式输出此人相应的信息及总分和平均分，平均分保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除四个文本框中的内容及窗体中显示的信息。单击“结束”按钮时结束运行。运行界面如下图。（可参考实验教程P16 例2-1） 9、编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的（范围在程 序运行时由两个文本框任意输入）3个随机整数和这三个随机整数和的平方根，平方根保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除两个文本框中的内容及窗体中显示的红色信息。单击“结束”按钮时结束运行。运行界面如下图。

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题库程序设计

一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m

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/6512897716.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程序设计教程第四版课后答案

vb课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。

答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案

一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))

VB上机实验题

(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！ ．．．．．．) 实验一：第二章 ⒈在名称为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_click() Label1.visible=false Text1.visible=false Print text1.text End sub ⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名 称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

vb程序设计试题(含答案)

第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )

VB程序设计 试题与答案-1

《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

VB上机实验三(2012-3-26)

《Visual Basic语言》上机实验三 实验名称：数据类型、运算符和表达式 一、实验目的 1.掌握Visual Basic的数据类型和变量定义方法。 2.正确使用Visual Basic的运算符和表达式。 3.掌握Visual Basic常用函数的使用方法。 二、背景知识 1．Visual Basic的数据类型 Visual Basic提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。Visual Basic将数据类型分为标准数据类型和自定义类型。 标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型、字节型等；非数值类型包括日期型、逻辑型（布尔型）、字符串型和对象型数据类型。 除了以上标准数据类型外，用户还可以根据需要自定义数据类型，称为自定义类型。2．Visual Basic变量的声明 变量用来在程序运行期间临时存储数据。变量名、类型、值称为变量的三要素。变量名表示的是变量在内存中的地址，类型决定了变量在内存中的存储方式和所占内存单元的大小，值指的是变量名所对应内存单元的存储内容。 所谓声明一个变量，就是先将变量的有关信息（变量名和变量的数据类型）告诉程序。变量的声明方式有三种： （1）显式声明：用Dim、Static、Public、Private等声明语句显式声明变量及类型。（2）隐式声明：Visual Basic允许用户在编写应用程序时，不声明变量而直接使用，系统临时为新变量分配存储空间并使用。所有隐式声明的变量都是为变体类型Variant。系统根据程序中赋予变量的值来自动调整变量的类型。 （3）强制类型声明：在程序中用到的变量必须事先声明，要达到此目的，方法是在窗体模块或标准模块的“通用－声明”部分写上语句：Option Explicit，也可以在“工具”菜单中选取“选项”命令，然后在打开的对话框中单击“编辑器”选项卡，再复选“要求变量声明”选项，这样系统就会在新模块中自动插入Option Explicit语句。 3．运算符及优先级 （1）不同类型运算符优先级别如下： 算术运算符＞字符串运算符＞关系运算符＞逻辑运算符 （2）相同类型运算符优先级别如下： ①算术运算符：乘方（^）＞负号（-）＞乘除（*、/）＞整除（\）＞求余（Mod）＞加减（+、-） ②字符串运算符:优先级别相同 ③关系运算符:所有关系运算符优先级别相同 ④逻辑运算符:逻辑非（Not）＞逻辑与（And）＞逻辑或（Or） 4．Visual Basic的表达式 表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。 （1）表达式的类型

VB程序设计实验报告

《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日

一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V

文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器

界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制

(完整版)VB上机练习题

1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 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, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1

VB程序设计试题及答案一

V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……

VB上机题汇总

以题号保存，如第1题取名：1.Frm 、1.Vbp 。 1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签 控件Label1显示y 值。 ?????>+-<=<=-+?-<-+=5 log 5552 sin 51 23102x x x x x x x x x y x 2、 编程运行时单击命令按钮，输入行数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!23 2 +++++=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事件中调用该函数。