当前位置：文档库 › 40个Visual Basic 编程简单实例

40个Visual Basic 编程简单实例

实验题目1：设计窗体。参考界面如下： (2)

实验题目2：设计一个计算器。参考界面如下： (3)

实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下： (4)

实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下： (4)

实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下： (5)

实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下： (6)

实验题目7：输入一个三位数，将它按逆序输出。参考界面如下： (7)

实验题目8：输入两个数，将这两个数交换。 (8)

实验题目9：设计文本编辑窗体。 (8)

实验题目10：编写程序计算某个学生三门课程的平均成绩。 (10)

实验题目12：编写程序计算长方体的体积。 (10)

实验题目13：编写程序求出四个数中的最小数。 (11)

实验题目14：编写程序判断某个数是否是水仙花数。 (11)

实验题目15：编写程序，实现数字和英文单词的对应。 (12)

实验题目16：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符） (12)

实验题目17：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。 (13)

实验题目18：编写程序输出图形，运行界面如下： (15)

实验题目19：编写程序求n！。 (15)

实验题目20：编写程序，求出某班所有同学某门课程的平均成绩。 (16)

实验题目21：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输出这些整数的和。（用for语句实现） (16)

实验题目21：编写程序，统计输入的一个字符串中各类字符的个数。（用for语句实现）.17 实验题目22：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12......数字，并以顺序和逆序两种方式输出各元素值。. (17)

实验题目23：随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。 (18)

实验题目24：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。 (18)

实验题目25：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。 (19)

实验题目26：阅读并上机运行下面程序，理解动态数组的用法。 (19)

实验题目27：阅读并上机运行下面程序，理解array函数的用法。 (20)

实验题目28：阅读并上机运行下面程序，理解for each ...... next语句的用法。.. (20)

实验题目29：用控件数组实现下面界面的设计。（建立一个含有3个单选按钮的控件数组，当单击某个单选按钮时，标签的背景分别显示不同的颜色） (21)

实验题目30：阅读并运行以下程序，理解过程中的参数传递。 (21)

实验题目31：编写程序，实现两个变量值的交换。要求用过程。 (22)

实验题目32：以下代码的功能是：调用max “子过程”，求出两个数中的最大值。请将以下代码补充完整。 (22)

实验题目33：以下代码的功能是：调用max“函数过程”，求出两个数中的最大值。请将以下代码补充完整。 (23)

实验题目34：阅读并运行下面的程序代码，多次单击command1命令按钮，比较两种数组的区别。 (24)

实验题目35两种数组的区别是：用static定义的数组表示静态数组，如果没有给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初始值；用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值都为0。 (25)

实验题目36：设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载） (25)

End Sub (26)

实验题目37：设计个人情况登记程序。程序初始界面如下： (26)

Picture1.Print Combo1.Text & Combo2.Text & Combo3.Text (26)

实验题目38：设计“商品统计”窗体。初始界面如下： (26)

实验题目39：设计界面，实现调色板功能。 (27)

End Sub (28)

实验题目40： (28)

实验题目1：设计窗体。参考界面如下：

运行前运行后

要求：

1）在窗体上添加一个标签，通过属性窗囗设置标签格式：

Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline

实验题目1源程序代码：

Private Sub Command1_Click()

Label1.FontSize = 30

End Sub

Private Sub Command2_Click()

Label1.FontBold = true

End Sub

Private Sub Command3_Click()

Label1.FontUnderline = True

End Sub

实验题目2：设计一个计算器。参考界面如下：

要求：怎么在文本框中输入数据----直接输入，文本框有输入、编辑和显示文本的作用。 1）实现算术运算（+、-、*、/）的功能；

2）实现清除和结束的功能；

3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：

要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。

说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。

实验题目3源程序代码：

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

Text5.Text = Val(Text4.Text) / 3

End Sub

Private Sub Command3_Click()

‘（cls用于清除form和picturebox运行时生成的图片和文本）

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：

要求：

①设置窗体的标题为“计算圆的周长和面积”。

②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目4源程序代码：

Private Sub Command1_Click()

Dim r As Double, s As Double , c As Double

Const pi = 3.1415926 ‘声明用于代替文字量的常数。

r = Val(Text1.Text)

s = pi * r * r

c = 2 * pi * r

Text2.Text = Str(c)

‘返回代表一数值的 Variant (String)。当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空

格暗示有一正号。

Text3.Text = Str(s)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus ‘ 将焦点移到第一个文本框中。

End Sub

实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：

要求：

①设置窗体的标题为“验证算术运算符”。

②“计算”命令按钮的功能：计算两个数的除、整除和取余。

③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目5源程序代码：

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Text4.Text = Val(Text1.Text) \ Val(Text2.Text)

Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.Setfocus

End Sub

Private Sub Command3_Click()

End

End Sub

实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：

要求：

①设置窗体的标题为“分离三位数”。

②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。

③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目6源程序代码：

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text4.Text = Str(a \ 100) ‘ 读入用Val（），读出用Str（）。

Text3.Text = Str((a Mod 100) \ 10)

Text2.Text = Str(a Mod 10)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：

要求此题用两种解法：

第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；

第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。

实验题目7源程序代码：

第一种解法：

Private Sub Command1_Click()

Dim a As String, b As String, c As String, d As String

a = Trim(Text1.Text)

‘trim()是去除字符串头或尾部的空格，但不包含中间的空格。ltrim()是去除字符串左边的空格。rtrim()是去除字符串右边的空格。

b = Left(a, 1)

‘返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。

c = Mid(a, 2, 1)

‘ Mid(string, start[, length])

d = Right(a, 1)

Text2.Text = d & c & b

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

第二种解法：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

a = Val(Text1.Text)

b = a \ 100

c = (a Mo

d 100) \ 10

d = a Mod 10

Text2.Text = Str(d * 100 + c * 10 + b)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

实验题目8：输入两个数，将这两个数交换。

要求：不允许使用第三个文本框，可以借助一个中间变量。

实验题目8源程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = a

a = b

b = c

Text1.Text = Str(a)

Text2.Text = Str(b)

End Sub

实验题目9：设计文本编辑窗体。

复制按钮的功能：

移动按钮的功能：

提示：文本框的SelText属性表示选定的内容。

要求：文本框可以多行输入。

说明：设计时先将文本框的multiline属性设置为true。实验题目9源程序代码：

Private Sub Command1_Click()

Text2.Text = Text1.SelText

End Sub

Private Sub Command2_Click()

Text2.Text = Text1.SelText

Text1.SelText = ""

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command4_Click()

End

End Sub

实验题目10：编写程序计算某个学生三门课程的平均成绩。

要求：

（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩"))

（2）单击“结束”命令按钮结束程序运行。

界面如下：

实验题目10 源程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

a = Val(InputBox("请输入第一门成绩"))

b = Val(InputBox("请输入第二门成绩"))

c = Val(InputBox("请输入第三门成绩"))

d = (a + b + c) / 3

Text1.Text = d

End Sub

实验题目12：编写程序计算长方体的体积。

要求：

（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox函数，输出框的标题为“计算长方体的面积”。）输出对话框参考界面如下：

（2）单击“结束”命令按钮结束程序运行。

实验题目12源程序代码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, v As Integer

a = Val(InputBox("请输入长方体的长"))

b = Val(InputBox("请输入长方体的宽"))

c = Val(InputBox("请输入长方体的高"))

v = a * b * c

MsgBox "长方体的体积为：" & v, , "计算长方形的体积"

End Sub

Private Sub Command2_Click()

end

End Sub

实验题目13：编写程序求出四个数中的最小数。

实验题目13源程序代码：

Private Sub Command1_Click()

Dim a!, b!, c!, d!, min!

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = Val(Text4)

min = a

If b < min Then min = b

If c < min Then min = c

If d < min Then min = b

Label1 = "最小的数是：" & min

End Sub

实验题目14：编写程序判断某个数是否是水仙花数。

要求：用inputbox函数输入一个数，将结果输出在窗体上。

提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。实验题目14源程序代码：

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer

d = InputBox("请输入一个三位数", "判断水仙花数")

a = d \ 100

b = (d Mod 100) \ 10

c =

d Mod 10

If d = a ^ 3 + b ^ 3 + c ^ 3 Then

Print True

Else

Print False

End If

End Sub

实验题目15：编写程序，实现数字和英文单词的对应。

提示：在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。

实验题目15 源程序代码：

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

If a = 0 Then

Text2.Text = "sunday"

ElseIf a = 1 Then

Text2.Text = "monday"

ElseIf a = 2 Then

Text2.Text = "tuesday"

ElseIf a = 3 Then

Text2.Text = "wednesday"

ElseIf a = 4 Then

Text2.Text = "thursday"

ElseIf a = 5 Then

Text2.Text = "friday"

ElseIf a = 6 Then

Text2.Text = "saturday"

End If

End Sub

实验题目16：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符）

要求：用select case语句实现。

提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength 属性设置为1，则一次只能输入一个字符。

实验题目16源程序代码：

Private Sub Command1_Click()

Dim a As String

a = Text1.Text

Select Case a

Case "a" To "z"

Label1.Caption = "它是小写字母"

Case "A" To "Z"

Label1.Caption = "它是大写字母"

Case "0" To "9"

Label1.Caption = "它是数字字符"

Case Else

Label1.Caption = "其他字符"

End Select

End Sub

实验题目17：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。

具体要求如下：

（1）可以设置字号，包括10、20、30号

（2）可以设置字体，包括宋体、隶书、幼圆

（3）可以设置字型，包括加粗、倾斜、下划线

（4）可以设置字的颜色，包括红色、绿色、蓝色

实验题目17源程序代码：

Private Sub Check1_Click()

If Check1.Value = 1 Then

Text1.FontBold = True

Else

Text1.fontbold = false

End If

End Sub

Private Sub Check2_Click()

If Check2.Value =1 Then

Text1.FontItalic = True

Else

Text1.fontitalic = false End If

End Sub

Private Sub Check3_Click() If Check3.Value =1 Then Text1.FontUnderline = True Else

Text1.fontunderline = false End If

End Sub

Private Sub Option1_Click() Text1.FontSize = 10

End Sub

Private Sub Option2_Click() Text1.FontSize = 20

End Sub

Private Sub Option3_Click() Text1.FontSize = 30

End Sub

Private Sub Option4_Click() Text1.FontName = "宋体" End Sub

Private Sub Option5_Click() Text1.FontName = "隶书" End Sub

Private Sub Option6_Click() Text1.FontName = "幼圆"

End Sub

Private Sub Option7_Click()

Text1.ForeColor = vbRed

End Sub

Private Sub Option8_Click()

Text1.ForeColor = vbGreen

End Sub

Private Sub Option9_Click()

Text1.ForeColor = vbBlue

End Sub

实验题目18：编写程序输出图形，运行界面如下：

实验题目18源程序代码：

Private Sub Command1_Click()

Dim a%

a = 1

While a <= 6

Print "******"

a = a + 1

Wend

End Sub

实验题目19：编写程序求n！。

实验题目19源程序代码：

Private Sub Command1_Click()

Dim a as integer, b as integer, c As Long

a = Val(Text1.Text)

b = 1:

c = 1

Do While b <= a

c = c * b

b = b + 1

Loop

Label2.Caption = a & "!=" & c

End Sub

实验题目20：编写程序，求出某班所有同学某门课程的平均成绩。

实验题目20源程序代码：

Private Sub Command1_Click()

Dim s As Integer, i As Integer, n As Integer, d As Integer, a As Double

s = 0: i = 1: n = Val(Text1.Text)

Do While i <= n

d = InputBox("输入第" & i & "位同学的成绩", "成绩输入")

s = s + d

i = i + 1

Loop

a = s / n

MsgBox "全班" & n & "位同学的平均分为:" & a, , "求平均分"

End Sub

实验题目21：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输出这些整数的和。（用for语句实现）

实验题目20源程序代码：

Private Sub Command1_Click()

Dim i As Integer, n As Integer, s As Integer

s = 0

n = 0

For i = 1 To 100 Step 1

If i Mod 3 = 0 Then

Print i;

n = n + 1

If n Mod 5 = 0 Then

End If

s = s + i

End If

Next i

Print s

End Sub

实验题目21：编写程序，统计输入的一个字符串中各类字符的个数。（用for语句实现）

实验题目21源程序代码：

Private Sub Command1_Click()

Dim i%, a%, b%, c%, d%, s As String

s = Text1.Text

For i = 1 To Len(s) Step 1

Select Case Mid(s, i, 1)

Case "a" To "z"

a = a + 1

Case "A" To "Z"

b = b + 1

Case "0" To "9"

c = c + 1

Case Else

d = d + 1

End Select

Next i

Print a, b, c, d,

End Sub

实验题目22：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12……数字，并以顺序和逆序两种方式输出各元素值。

实验题目22源程序代码：

Private Sub Command1_Click()

Dim i As Integer

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = 3 * i

Print a(i);

Next i

For i = 10 To 1 Step -1

Print a(i);

Next i

End Sub

实验题目23：随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。

实验题目23源程序代码：

Private Sub Command1_Click()

Dim i As Integer, n As Integer, m As Integer

Dim a(1 To 20) As Integer

For i = 1 To 20

a(i) = Int(100 * Rnd + 1)

If a(i) Mod 2 = 0 Then

Print a(i);

n = n + 1

End If

Next i

For i = 1 To 20

If a(i) Mod 2 <> 0 Then

Print a(i);

m = m + 1

End If

Next i

Print m, n

End Sub

实验题目24：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。

实验题目24源程序代码：

Option base 1

Private Sub Command1_Click()

Dim sum As Integer, i As Integer, n As Integer, m As Integer

Dim data(10) As Integer, average As Single

sum = 0: i = 1: n = Val(Text1.Text)

Do While i <= n

data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")

sum = sum + data(i)

i = i + 1

Loop

average = sum / n

MsgBox "全班" & n & "位学生的平均成绩为:" & average, , "求平均分"

For i = 1 To 10

If data(i) > average Then

m = m + 1

End If

Next i

Print m

End Sub

实验题目25：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。

实验题目25源程序代码：

Option base 1

Private Sub Command1_Click()

Dim i As Integer, n As Integer, max As integer, min As integer

Dim data(10) As Integer

data(1) = InputBox("输入第" & 1 & "位学生的成绩", "成绩输入")

max = data(1): min = data(1)

For i = 2 To 10

data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")

If data(i) > max Then

max = data(i)

End If

If data(i) < min Then

min = data(i)

End If

Next i

Print "最高分是："; max, "最低分是："; min

End Sub

实验题目26：阅读并上机运行下面程序，理解动态数组的用法。

实验题目26程序运行结果：21

实验题目27：阅读并上机运行下面程序，理解array函数的用法。

实验题目27程序运行结果：1234

实验题目28：阅读并上机运行下面程序，理解for each …… next语句的用法。

VisualBasic程序设计_0004

Visual Basic程序设计_0004 一、单项选择题（共10 道试题，共40 分。） 1. 一旦数据到达，将首先触发Winsock控件的（）。 A. DataArrival事件 B. ConnectionRequest事件 C. DataSend事件 D. DataGet事件 2. 以下叙述中错误的是（）。 A. 一个工程中只能有一个Sub Main过程 B. 窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体 C. 窗体的Hide方法和Unload方法的作用完全相同 D. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 3. 若要将窗体从内存中卸载，其实现的方法是（）。 A. Unload B. Show C. Load D. Hide 满分：4 分 4. 下列数组声明语句，正确的是（）。 A. Dim a[3,4] As Integer B. Dim a(3 4) As Integer C. Dim a(n,n) As Integer D. Dim a(3,4) As Integer 满分：4 分 5. 控件（）没有Caption属性。

A. Label B. OptionButton C. Frame D. ListBox 满分：4 分 6. Visual Basic提供的常见鼠标事件中，鼠标按下所引发的事件为（）。 A. MouseDown事件 B. Click事件 C. MouseUp事件 D. MouseMove事件满分：4 分 7. 下列数据类型中，（）占用内存最小。 A. Boolean B. Byte C. Integer D. Long 满分：4 分 8. 无论何种控件，共同具有的属性是（）。 A. Text B. Name C. Caption D. ForeColor 满分：4 分 9. 要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（）。 A. Visible B. Timer

VisualBasic程序设计作业题解

Dir1.Path=Drive1.Drive B．在Drive1_Click事件中加入Dir1.Path=Drive1.Drive C．在Dir1_Click事件中加入Drive1.Path=.Drive.Path D．在Dir1_Click事件中加入Drive1.Path=.Dir1.Path 答案：A 4．为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在（）。 A．Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件过程中加入Dir1.Path=File1.Path代码。 B．Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码。 C．Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=File1.FileName代码。３

VisualBasic程序设计作业复习资料

Visual Basic程序设计作业答案作业2 一、选择题 1．B 2．C 3．D 4．B 5．D 6．A 7．B 8．C 9．A 10．D 11．C 12．B 13．D 14．C 15．A 16．B 17．C 18．B 19．D 20．B 二、填空题 1．下拉式菜单弹出式菜单 2．打开另存为颜色字体打印 3．文本框列表框 4．Option Base 1 5．Call语句 6．工程工程属性通用Form1.Show 7．0 8．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 9．窗体模块标准模块类模块 10．移出内存无效状态 11．（1）2*Cosα*Sinα/(2*α) (2) Sqr(s*(s-a)*(s-b)*(s-c)) (3) Sin(45*3.14/180) 12．（1）x>=1 And x<12 (2) A+B>=C Or a-c<=c (3) a>0 And b>0 Or(a<0 And b<0) 13．False 14．For While Do 15．3 三、阅读下列程序，给出程序运行结果。 1．程序运行后，单击窗体，输出结果为：5050。 2． 3． 4．

3.4 3 5． * *** ***** ******* ********* 四、程序设计题 1． Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then y = x Else If x < 200 Then y = 9.5 * x Else If x < 300 Then y = 0.9 * x Else If x < 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Text = y End Sub 2． Private Sub Form_Load() Dim x As Integer x = 100 Do Until x > 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) End If x = x + 1 Loop End Sub

Visual-Basic程序设计形成性考核册作业答案二电子教案

Visual Bsdic程序设计形成性考核册作业答案二一、选择题 1．按照变量的作用域可将变量划分为（ B ）。 A、公有、私有、系统 B、全局变量、模块级变量、过程变量 C、动态、常数、静态 D、Public、Private、Protected 2. 可获得字符的ASCII码的函数是（ C ）。Ａ、Val Ｂ、Fix Ｃ、Asc Ｄ、Chr 3、要退出Do….Loop循环，可使用的语句的（ D ）语句。 A、Exit B、Exit For C、End Do D、Exit Do 4. 把数值型转换为字符串型需要使用的函数是（B ）。 A、Val B、Str C、Asc D、Chr 5.关于语句行，下列说法正确的是（ B ）。Ａ．一行只能写一条语句Ｂ．一条语句可以分多行书写Ｃ．每行的首字符必须大写Ｄ．长度不能超过255个字符６．表达式6+10 Mod 4*2+1的值是（ A ）．Ａ．９Ｂ．11 C．１ D.3 7.以下可以作为Ｖisual Basic 变量名的是（B）．Ａ．SIN B.CO1 C.COS(X) D.X(-1) 8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．Ａ．5ABCDE Ｂ.－5ABCDE C.10 D.0

9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．Ａ．一个空格加一个下划字符（＿）Ｂ．一个下划字符（＿）Ｃ．直接回车Ｄ．一个空格加一个字符（－） 10.Sub过程与Function过程最根本的区别是（D）．Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．Ｂ．Function过程可以有参数，Sub过程不可以．Ｃ．两种过程参数的传递方式不同．Ｄ．Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值． 11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）. A..0≤X<80 B.0<=X<80 C.0<=x and x<80 D.0<=x Orx<80 12.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B ) A.加号(+) B.减号(-) C.星号(*) D.感叹号(!) 13.如果要在程序中显示一个弹出式菜单,那么要调用Visual Basic 中提供的方法是(D). A.Print B.Move C.Refresh D.PopupMenu

VisualBasic程序设计教程第三版课后习题答案

《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题 1、V isual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、V isual Basic 6.0用于开发__________环境下的应用程序。二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、V isual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动三、简答题 1、代码窗口主要包括哪几部分？

2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可

VisualBasic程序设计(复习资料)

《VisualBasic》复习资料总共50题共100分一、单选题（共20题,共40分） 1. 假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（）（2分） https://www.wendangku.net/doc/ba16050913.html,bel1.BackStyle=0 https://www.wendangku.net/doc/ba16050913.html,bel1.BackStyle=1Label1.BorderStyle=0 Label1.BorderStyle=1 https://www.wendangku.net/doc/ba16050913.html,bel1.BackStyle=True https://www.wendangku.net/doc/ba16050913.html,bel1.BackStyle=FalseLabel1.BorderStyle=True Label1.BorderStyle=False . ★标准答案：A 2. 设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（）（2分） A.Caption https://www.wendangku.net/doc/ba16050913.html, C.Text D.value . ★标准答案：D 3. 比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（）（2分） A.两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小 B.两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分 C.当图片框（PictureBox）的AutoSize自属性为Jlase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸 D.当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框 . ★标准答案：D 4. VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（）（2分） A.窗体文件的扩展名为.frm，每个窗体对应一个窗体文件 B.标准模块是一个纯代码性质的文件，它不属于任何一个窗体 C.用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas D.资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑 . ★标准答案：C 5. 可以惟一标识控件数组中的每一个控件属性的是（）（2分） https://www.wendangku.net/doc/ba16050913.html, B.Caption C.Index D.Enabled . ★标准答案：C 6. 下面（）不是VB的文件类控件（2分） A.DriveListBox控件 B.KirListBox控件 C.FileListBox控件 D.MsgBox . ★标准答案：D 7. 选中一个窗体，启动菜单编辑器的方法有（）（2分） A.单击工具栏中的“菜单编辑器”命令 B.执行“工具”菜单中的“菜单编辑器”命令 C.按Ctrl+E D.按Shift+Alt+M . ★标准答案：D 8. 用于获得字符串S从第2个字符开始的3个字符的函数是（）（2分）

VisualBasic程序设计作业题解.

Visual Basic程序设计作业题解作业 3 一、选择题 1．Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（）。 A．顺序文件 B．Unix文件 C．二进制文件 D．随机文件答案：B 2．随机文件进行文件读写的单位是（）。 A．字节 B．记录 C．整个文件 D．字符答案：B 3．为了使目录路径列表Dir1的内容符合驱动器列表框Drive1的选择，应当（）。 A．在Dir1_Click事件中加入Dir1.Path=Drive1.Drive B．在Drive1_Click事件中加入Dir1.Path=Drive1.Drive C．在Dir1_Click事件中加入Drive1.Path=.Drive.Path D．在Dir1_Click事件中加入Drive1.Path=.Dir1.Path 答案：A 4．为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在（）。 A．Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件过程中加入Dir1.Path=File1.Path代码。 B．Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码。 C．Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=File1.FileName代码。 D．Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=Dir1.FileName代码。答案：C 5．下面关于顺序文件的描述正确的是（）。 A．每条记录的长度必须相同 B．可通过编程对文件中的某条记录方便地修改 C．数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示 D．文件的组织结构复杂答案：C 6．KILL语句在VB语言中的功能是（）。１

VisualBasic程序设计多选题

第一章可视化编程概述 ABC1．关于对象的属性正确的是（）。 A．对象的属性一般有属性名和属性值 B．可通过属性窗口设置属性的值 C．可通过程序代码设置属性的值 D．对象的所有属性值均可在设计时设计 ACD2．下列哪一个是VB对象的要素（） A.属性 B.声音 C.方法 D. 事件 ABC3. 为了保存一个Visual Basic程序下列说法不正确的是( )。 A．只保存窗体文件（*.frm） B. 只保存工程文件（*.vbp） C. 分别保存工程文件和标准模块文件（*.bas） D．分别保存窗体文件、工程文件和标准模块文件 ABD 4、VB6.0集成开发环境的主窗口中包括（）。 A.标题栏 B.菜单栏 C.状态栏 D.工具栏 ABD5.下面关于工程的概念中正确的是（）。 A. Visual Basic 的工程是相关应用程序文件的集合 B. Visual Basic 的工程实际上为了管理构成应用程序的所有文件 C. 一个大的Visual Basic应用程序才能构成一个工程 D. 建立只有一个窗口的应用程序，会生成多个程序文件，也称为一个工程ABD6、以下说法正确的是（） A．Visual Basic是一种可视化编程工具 B．Visual Basic是面向对象的编程语言 C．Visual Basic是结构化程序设计语言

D．Visual Basic采用事件驱动编程机制 ACD7.Visual Basic6.0工程资源管理器中的工程视图窗口以层次列表形式显示了组成这个工程的所有文件，以下属于其列举显示范围的是（）。 A. 窗体文件 B. 可执行文件 C. 标准模块文件 D. 类模块文件 ACD8、用标准工具栏中的工具按钮可以执行的操作是（）。 A．添加工程 B．打印源程序 C．运行程序 D．打开工程 ACD9、下列可以打开工具箱窗口的操作是（）。 A．执行“视图”菜单中的“工具箱”命令 B．按Alt+F8键 C．单击工具栏上的“工具箱”按钮 D．按Alt+V，然后按Alt+X键 ACD10窗体也是一个对象，它具有（）的特征。 A．属性 B．过程 C．事件 D．方法 BCD11、以下选项中，是 Visual Basic控件的是（）。 A.窗体 B.定时器 C.单选框 D.命令按钮 ABD12下列说法中，不正确的说法是( ) A．一个窗体文件只能被一个工程使用 B．一个窗体文件可以被多个工程使用 C．一个窗体文件可以被多个工程使用，但必须和这些工程文件位于同一文件夹 D．一个窗体文件的文件名和窗体名必须一致 ABD13下列关于对象和类的说法中，不正确的是（）。 A．包含参数调用和返回值的函数就具有对象的一切特点。 B．对象是无法实现数据封装的。 C．在应用领域中，有意义的任何事物都可以称为对象。 D．在应用领域中，有意义的任何事物都可以称为类。

Visual_Basic程序设计形成性考核册_参考答案

《Visual Basic程序设计》形成性考核册作业及答案《Visual Basic程序设计》形成性考核册作业及答案作业1 一、选择题 1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。 A、窗体设计 B、代码 C、属性 D、工程资源管理器窗口 2、窗体的load事件的触发时机是（B）。 A、用户单击窗体时 B、窗体被加载时 C、窗体显示之后 D、窗体卸载时 3、与传统的程序设计语言相比，Visual Basic 最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 4、VB6.0集成开发环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 5、如果对象的名称为Mytext ,而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（B）。 A、 text.Mytext B、Mytext.Text C、Mytext.(Text) D、Mytext*Text 6、下列可以激活属性窗口的操作是（D）。 A、用鼠标双击窗体的任何部位 B、执行“工程“菜单中的”属性窗口“命令 C、按Ctrl+F4 D、按F4 7、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（A）。 A、单击窗体上没有控件的地方 B、单击任一个控件 C、不执行任何操作 D、双击窗体的标题栏 8、如果要在文本框键入字符时，只显示某个字符，如果（*），应设置文本框的（B）属性。 A 、Caption B、PasswordChar C、Text D、Char 9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True. A Locked B、MultiLine C、TabStop DVisible 10 对于定时器（Tiner）控制，设置其定时是否开启的属性是（C） A、Index B、Tag C、Enabled D、Left 11、要在窗口体Fornl 内显示“myfrm”使用的语句是（ C） A、Form.capt ion=“myfrm” B、Fornl.caption=“myfrm” C、forml.print“myfrm” D、form.print“myfrm” 12、对象的性质和状态特征称为（C） A、事件 B、方法 C、属性 D、类 13、下列正确的赋值语句是（B） A、x+y=20 B、y=x+20 C、3x=y D、s= 14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（D）键，就可出现MSDN窗口直接显示所需的帮助信息。 A、Help B、F10 C、Ese D、F1 15、将调试通过的工程经“文件”菜单的“生成.exe文件“编绎成名.exe后，将该可执行文件放到其它机器上不能运行的主要原因是（D）。 A、运行的机器上无VB系统 B、缺少.frm 窗体文件 C、该执行文件有病毒 D、以上原因都不对二、填空题 1、当进入VB集成开发环境后，发现没有显示“工具箱”窗口。应选择视图菜单的工具箱选项，使“工具箱”窗口显示。 2、在VB中，事件过程名由对象名和事件名构成。 3、工程文件的扩展名是 vbp ，窗体文件扩展名是 frm 。 4、对象时代码和数据的集合，例如，Visual Basic 中的窗体、按钮、

VisualBasic程序设计教程第版实验答案

※声明： 1.实验所属课本原件为《Visual Basic程序设计教程（第4版）（□ 主编龚沛曾□编者杨志强陆慰民谢步瀛）》； 2.实验答案代码采用红色字体突出； 3.仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作； 4.教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信； 5.本文为作者原创，复制转载请注明出处； 6.如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信； 7.浏览、复制、下载后请给作者一个合理的评价，感激不尽。实验1-1 编制简单的欢迎界面程序。要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框 Text1中输入姓名；单击命令按钮“你输入的姓名是”，在 Label3标签显示在文本框中输入的姓名。 “学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”“”和“”）

Private Sub Command1_Click() Label3.Caption = Text1.Text End Sub 实验1-2 模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及

End Sub Sub MyMove() Label1.Move Label1.Left - 50, Label1.Top If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub Private Sub Command1_Click() Timer1.Interval = 200 End Sub Private Sub Command2_Click() Timer1.Interval = 0 Call MyMove End Sub Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() Call MyMove End Sub 实验1-3 “学号-1-3”为项目名保存。

VisualBasic程序设计典型例题解析(2)

VisualBasic程序设计典型例题解析（2）一、填空题 1．以顺序输入模式打开“c:\source1.txt”文件的命令是（1）；以输出方式打开“c:\source2.txt”文件的命令是（2）。分析：Print#语句用于将把数据写入文件中。Print语句格式为： Open文件名[For模式]As[#]文件号 “For模式”为指定打开文件的模式是数据的输入模式还是输出模式。结论：答案应为：（1）Open"c:\source1.txt"For Input As#1 （2）Open"c:\source2.txt"For Output As#2 2.在Visual Basic中，文件系统控件包括（1）、（2）和文件列表框（FileListBox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。分析：在Visual Basic中，文件系统控件包括驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）。驱动器列表框可以选择或设置一个驱动器，目录列表框可以查找或设置指定驱动器中的目录，文件列表框可以查找指定驱动器指定目录中文件信息，三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。结论：答案应为：（1）驱动器列表框（DriveListBox）（2）目录列表框（DirListBox） 3．每次重新设置驱动器列表框的Drive属性时，都将引发（1）事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。分析：在Visual Basic中，每次重新设置驱动器列表框的Drive属性时，都将引发Change 事件。可在Change事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。驱动器列表框的默认名称为Drive1，其Change事件过程的开头为Drive1_Change()。结论：答案应为：（1）Change 4．目录列表框用来显示当前驱动器下目录结构。刚建立时显示（1）的顶层目录和当前目录，如果要显示其他驱动器上的目录信息，必须改变路径，即重新设置目录列表框的（2）属性。分析：在Visual Basic中，目录列表框用来显示当前驱动器下目录结构。刚建立时显示当前驱动器的顶层目录和当前目录，如果要显示其他驱动器上的目录，必须改变路径，即重新设置目录列表框的Path属性。结论：答案应为：（1）当前驱动器（2）Path 5．对驱动器列表框来说，每次重新设置驱动器列表框的（1）属性时，将引发Change 事件；对目录列表框来说，当（2）属性值改变时，将引发Change事件；对于文件列表框，重新设置的（3）属性，将引发Change事件。分析：在Visual Basic中，对驱动器列表框来说，每次重新设置驱动器列表框的Drive属

《Visual Basic程序设计》形成性考核作业册

开放教育形成性考核作业 Visual Basic程序设计（专科）学校名称：学生学号：学生姓名：考核成绩：

姓名：学号：得分：教师签名：作业1 一、选择题 1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（）。 A、窗体设计 B、代码 C、属性 D、工程资源管理器窗口 2、窗体的load事件的触发时机是（）。 A、用户单击窗体时 B、窗体被加载时 C、窗体显示之后 D、窗体卸载时 3、与传统的程序设计语言相比，Visual Basic 最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 4、VB6.0集成开发环境的主窗口中不包括（）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 5、如果对象的名称为Mytext ,而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。 A、 text.Mytext B、Mytext.Text C、Mytext.(Text) D、Mytext*Text 6、下列可以激活属性窗口的操作是（）。 A、用鼠标双击窗体的任何部位 B、执行“工程“菜单中的”属性窗口“命令 C、按Ctrl+F4 D、按F4 7、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（）。 A、单击窗体上没有控件的地方 B、单击任一个控件 C、不执行任何操作 D、双击窗体的标题栏 8、如果要在文本框键入字符时，只显示某个字符，如果（*），应设置文本框的（）属性。 A 、Caption B、PasswordChar C、Text D、Char 9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（）属性设置为True. A Locked B、MultiLine C、TabStop DVisible 10 对于定时器（Tiner）控制，设置其定时是否开启的属性是（） A、Index B、Tag C、Enabled D、Left 11、要在窗口体Fornl 内显示“myfrm”使用的语句是（） A、Form.caption=“myfrm” B、Fornl.caption=“myfrm” C、forml.print“myfrm” D、form.print“myfrm” 12、对象的性质和状态特征称为（） A、事件 B、方法 C、属性 D、类 13、下列正确的赋值语句是（） A、x+y=20 B、y=x+20 C、3x=y D、s= 14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。 A、Help B、F10 C、Ese D、F1 15、将调试通过的工程经“文件”菜单的“生成.exe文件“编绎成名.exe后，将该可执行文件放到其它机器上不能运行的主要原因是（）。 A、运行的机器上无VB系统 B、缺少.frm 窗体文件 C、该执行文件有病毒 D、

《VisualBasic程序设计》试题及其答案

一、填空题（每题1分，共10分） 1.把数学式子：ο25sin 21π +写成VB 的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180)) ）。 2．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D 的值是（ True ）。 3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（指定范围内的值）时，执行该Case 子句相应的语句块。 4．执行下面的程序段后，x 的值为（ 12 ）。 x=0 For i=1 To 8 Step 3 x=x+i Next i 5．在图片框上放置的控件称为图片框的（子）对象，而窗体是图片框的（父）对象。 6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为( Text1.Text=Command1.Caption ) 7．复选框的Value 属性为（ 1 ）时，表示复选框被选中。

8. 使用滚动条可以获取某一范围内的数值输入。为使垂直滚动条的Value属性值从下往上递增变化，应设置滚动条Min属性值大于( Max )属性值。 9．语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（8）。 10．给定如下子过程： Function fun(ByVal num As Long) As Long Dim k As Long,i As Integer k=1 For i=1 To num k=k*i Next i End Function 执行语句Print fun(5) 后在窗体上显示的结果为（0）。二、单项选择题（每题1.5分，共30分） 1.装载窗体是窗体的（ C ）。 A) 对象 B) 属性 C) 事件 D) 方法 2.设a="Visual Basic"，下面使b的值为"Basic"的赋值语句正确的是( B )。

2020年国家开放大学电大《VisualBasic程序设计》形考册答案及答案

Visual Basic程序设计_ 一、单项选择题（共10 道试题，共40 分。） 1. 一个VB应用程序可以包含几个vbp文件？（） A. 1个 B. 可以没有 C. 2个 D. 可以包含多个 2. 下列（）对象在运行时一定是不可见的。 A. Line B. Timer C. Shape D. Frame 3. 如果Winsock1.LocalPort=0，那么应用程序将使用（）。 A. 注册端口 B. 公认端口 C. 常用端口 D. 随机端口 4. 如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（）属性。 A. Caption B. PasswordChar C. Text D. Char 5. 要使图片框自动地与窗体右对齐，应该设置它的（）属性。 A. Align

B. AutoSize C. Left D. Width 6. 要在窗体的标题栏中显示“我的第一个应用程序”，使用的语句是（）。 A. Form1.Print"我的第一个应用程序" B. Form.Print"我的第一个应用程序" C. Form.caption="我的第一个应用程序" D. Form1.caption="我的第一个应用程序" 7. 表达式7+10 Mod 3*2+2（）。 A. 1 B. 7 C. 6 D. 13 8. 在VB程序的以下几种错误中，最具隐藏性和破坏性的是（）。 A. 运行时错误 B. 编译错误 C. 逻辑错误 D. 实时错误 9. 按照变量的作用域可将变量划分为（）。 A. 公有、私有、系统 B. 动态、常数、静态 C. 全局变量、模块级变量、过程级变量 D. Public、 Private、 Protected 10. 无论何种控件，共同具有的属性是（）。 A. Text

VisualBasic程序设计作业题解

程序设计作业题解作业 3 一、选择题 1．根据计算机访问文件的方式将文件分成三类，其中不包括（）。 A．顺序文件 B．文件 C．二进制文件 D．随机文件答案：B 2．随机文件进行文件读写的单位是（）。 A．字节 B．记录 C．整个文件 D．字符答案：B 3．为了使目录路径列表1的内容符合驱动器列表框1的选择，应当（）。 A．在1事件中加入11 B．在1事件中加入11 C．在1事件中加入1 D．在1事件中加入11 答案：A 4．为了使1驱动器列表框、1目录路径列表框和1文件列表框能同步协调工作，需要在（）。 A．1的事件过程中加入11,在1的事件过程中加入11代码。 B．1的事件过程中加入11,在1的事件过程中加入11代码。 C．1的事件过程中加入11,在1的事件过程中加入11代码。 D．1的事件过程中加入11,在1的事件过程中加入11代码。答案：C 5．下面关于顺序文件的描述正确的是（）。 A．每条记录的长度必须相同 B．可通过编程对文件中的某条记录方便地修改 C．数据只能以码形式存放在文件中，所以可通过文本编辑软件显示 D．文件的组织结构复杂答案：C 6．语句在语言中的功能是（）。 A．清内存 B．清病毒 C．删除在磁盘上的文件 D．清屏幕

答案：C 7．可用来改变坐标度量单位的是（）。 A．属性 B．属性 C．属性 D．属性答案：D 8．以下的属性和方法中，可重定义坐标系的是（）。 A．属性 B．属性 C．属性 D．属答案：B 9当使用方法画直线后，当前坐标在（）。 A．（0，0） B．直线起点 C．直线终点 D．容器的中心答案：A 10．（200，200）—（500，500）将在窗体（）画一直线。A．（200，200）到（500，500） B．（200，200）到（300，300） C．（200，200）到（700，700） D．（300，300）到（500，500）答案：C 11．设置对象的边框类型的属性是（）。 A． B． C． D．答案：B 12．为了清除图片框1中的图形，应采用的正确方法是（）。A．选择图片框，然后按键 B．执行语句1 (“”) C．执行语句1”” D．选择图片框，在窗口属性中选择属性条，然后按回车键答案：B 13．要绘制多种形状的图形，需要设置控件的（）属性。A． B． C．