VB程序设计基础练习题-2

VB程序设计基础练习题

一、窗体设计题

1.标签显示隐藏窗体标题

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 在名称为Form1的窗休上添加一个名称为Label1的标签，

字号大小为四号，标题为“等级考试”，如图1所示。

通过设置属性使标签初始为不显示。

请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，

单击窗体时，显示标签，如图2所示。

注意：程序中不得使用变量，事件过程中只能写一条语句。

-----------------------------------------------------------------

2.显示日期和时间

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 在名称为Form1的窗体上添加1个名称为Label1的标签，使其初始内容为空，

且能根据其标题内容自动调整标签的大小；再添加2个命令按钮，

标题分别为“日期”和“时间”，名称分别为Command1、Command2。

请编写2个命令按钮的Click事件过程，使得单击“日期”按钮时，

标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。

---------------------------------------------------------------------

3.InputBox函数参数设置

------------------------------------------------------------------- 【窗体设计】

---------------------------------------------------------------------

新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。

请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。如图所示。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

---------------------------------------------------------------------

4.窗体属性、字体属性设置

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 在名称为Form1的窗体上，更改窗体标题为“标签”，并添加一个可自动调整

大小的标签，名称为Label1，其标题为“计算机等级考试”，字体大小为三号字；

再添加两个命令按钮，标题分别是“宋体”和“黑体”，

名称分别为Command1、Command2。如图所示。

要求：编写两个命令按钮的Click事件过程。程序运行后，

如果单击“宋体”命令按钮，则标签标题显示为宋体字体；

如果单击“黑体”按钮，则标签标题显示为黑体字体。

注意：程序中不得使用变量，事件过程中只能写一条语句。

------------------------------------------------------------------

5.窗体按钮左右宽度高度设置

------------------------------------------------------------------

【窗体设计】

-----------------------------------------------------------------

----

在名称为Form1的窗体上添加两个命令按钮(见图1)，其名称分别为Cmd1和Cmd2，

编写适当的事件过程。程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗

体的左上角(只允许通过修改属性的方式实现)；单击命令按钮Cmd2，

则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图2所示。

要求：不得使用任何变量。

----------------------------------------------------------------

6.字体、文本框属性设置

---------------------------------------------------------------- 【窗体设计】

-------------------------------------------------------------- 在名称为Form1的窗体上添加两个文本框，名称分别为Text1、Text2，均无初始内容。要求：

①通过属性窗口设置适当的属性，使Text1、Text2中显示的文本的字体为“隶书”；

②编写适当的事件过程，使得在Text1中输入每一个字符时，

将Text1中的内容显示在Text2中，如图所示。

注意：

要求程序中不得使用变量，事件过程中只能写一条语句。

----------------------------------------------------------

7. 删除列表框列表项

-------------------------------------------------------------------

【窗体设计】

--------------------------------------------------------------------- 在名称为Form1的窗体上添加一个名称为List1的列表框，

通过属性窗口分别输入4个列表项：

“数学”、“物理”、“化学”、“语文”，如图所示。

请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为“英语”；

单击窗体时，则删除最后一个列表项。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

-----------------------------------------------------------------

8.列表框的列表项的复制和删除

------------------------------------------------------------------ 【窗体设计】

-------------------------------------------------------------------- 在名称为Form1的窗体上，更改窗体标题为“列表框练习”并添加1个名称为List1的列表框，表项内容依次输入“环球时报”、“人物”、“探索”和“读者”；再添加2个标题分别为“复制”和“移去”的名称为“Command1”

和“Command2”命令按钮，如图所示。

要求：编写适当的事件过程，在程序运行后，单击“复制”按钮，

可以将选中的列表项内容复制到已有列表项的尾部；

单击“移去”按钮，可以将选中的列表项的内容删除。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

答案：

Private Sub Command1_Click()

List1.AddItem List1.Text

End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex

End Sub

---------------------------------------------------------------- 9.标签字体的缩小放大

---------------------------------------------------------------- 【窗体设计】

---------------------------------------------------------------- 在名称为Form1的窗体上，添加1个名称为Label1的标签，

其标题为“计算机等级考试”，显示为宋体12号字，

且能根据标题内容自动调整标签的大小。

再添加2个名称分别为“Command1”、“Command2”，

标题分别为“放大”、“还原”的命令按钮。

要求：编写适当的事件过程，若单击“放大”按钮，

则Label1中所显示的标题内容自动增大2个字号；单击“还原”按钮，Label1中所显示的标题内容自动恢复到12号字。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

--------------------------------------------------------------- 10.文本框是否可用，内容大小定转换

--------------------------------------------------------------- 【窗体设计】

---------------------------------------------------------------- 在名称为Form1的窗体上添加两个文本框，其名称分别为Text1、Text2，初始文本都为空，显示内容为三号字，且Text1的初始状态为不可用。

再添加一个名称为Command1、标题为“开始”的命令按钮。如图所示。

要求：编写适当的事件过程，使得单击“开始”按钮后，

Text1文本框状态变为可用，且在Text1文本框中输入字母串时，

Text2文本框中用大写字母形式显示Text1文本框中的内容。

程序中不得使用变量，每个事件过程中只能写一条语句。

-----------------------------------------------------------

11.按钮左右向上向下移动

----------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------- 在名称为Form1的窗体上画一个命令按钮，其名称为C1，

标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。

程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。

程序的运行情况如图2所示。

注意：不得使用任何变量；

-----------------------------------------------------------------

12.文本框密码框的实现

---------------------------------------------------------------- 【窗体设计】

---------------------------------------------------------------- 在窗体上画二个文本框，名称分别为Text1、Text2。

请设置适当的控件属性，并编写适当的事件过程，

使得在运行时，如果在Text1中每输入一个字符，

则显示一个“*”，同时在Text2中显示输入的内容(如图所示)。

程序中不得使用任何变量。

-----------------------------------------------------------------

13.通过列表项设置文本框字体大小

----------------------------------------------------------------- 【窗体设计】

------------------------------------------------------------------

在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”

，AutoSize属性为True；然后再画一个列表框，名称是List1通过属性窗口

输入5个项目，分别为10、16、20、24、26、36，如图1所示，编写适当的事件过程。

程序运行后，如果用鼠标选中列表框中的某个项目，

则把标签中字体的大小设置为该项目相同。

程序的运行情况如图2所示。

程序中不得使用任何变量。

----------------------------------------------------------------

14.单击不同的按钮在窗体上显示不同的内容

-----------------------------------------------------------

【窗体设计】

---------------------------------------------------------------- 在名称为Form1的窗体上画两个名称分别为Cl和C2，

标题分别为“必修课”、“选修课”的命令按钮，

编写适当的事件过程。程序运行后，如果单击“必修课”命令按钮，

则在窗体上显示“高等数学必修课”，如果单击“选修课”命令按钮，

则在窗体上显示“多媒体技术选修课”

要求：不要使用任何变量，直接显示字符串。

-------------------------------------------------------------

15.把窗体标题显示在图片框中

-------------------------------------------------------------

【窗体设计】

----------------------------------------------------------------- 在名称为Form1的窗体上画1个名称为P1的图片框，窗体的标题为“程序设计”，

如图1所示。编写适当的事件过程，使得程序运行后，单击窗体，

则在图片框中显示窗体的标题，并把窗体的标题变为“Basic”，如图2所示。------------------------------------------------------------

16.按钮的变大变小左右

----------------------------------------------------------------- 【窗体设计】

---------------------------------------------------------------- 在名称为Form1的窗体上添加两个命令按钮(见图1)，其名称分别为Cmd1和Cmd2，编写适当的事件过程。程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。程序的运行情况如图2所示。

要求：不得使用任何变量。

-------------------------------------------------------------

17.

18.

19.

20.

二、程序填空题

1.求一元二次方程的根

Private Sub Form_Click()

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

Dim x1, x2

Dim p, q, r

a = InputBox("请输入a的值")

b = InputBox("请输入b的值")

c = InputBox("请输入c的值")

d = b * b - 4 * a * c

p = -b / (2 * a)

If d >= 0 Then

'**********SPACE**********

If 【?】 Then

r = Sqr(d) / (2 * a)

x1 = p + r

x2 = p - r

Else

x1 = p

x2 = p

'**********SPACE**********

【?】

Print "x1="; x1, "x2="; x2

'**********SPACE**********

【?】

q = Sqr(-d) / (2 * a)

Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i" End If

End Sub

答案：

①d>0或0>d

②endif

③else

2.判断素数

Private Sub Form_Click()

n = InputBox("请输入一个正整数（≥3）")

k = Int(Sqr(n))

i = 2

swit = 0

'**********SPACE**********

Do While i <= k And swit = 0

'**********SPACE**********

If n Mod i = 0 Then

swit = 1

Else

'**********SPACE**********

i = i + 1

End If

Loop

If swit = 0 Then

Print n; "是一个素数"

Else

Print n; "不是素数"

End If

End Sub

答案：

①swit=0

②n mod i=0

③i=i+1

3. 下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。

'-------------------------------------------------------

Private Sub Form_Click()

Print "5个数34、124、68、73、352的最大值是："

max1 = max(34, 124, 68)

'**********SPACE**********

max1 =【?】

Print max1

End Sub

Public Function max(ByVal a%, ByVal b%, ByVal c%)

'**********SPACE**********

If 【?】 Then

m = a

Else

m = b

End If

'**********SPACE**********

If 【?】 Then

max = m

Else

max = c

End If

End Function

答案：

①max(max1,73,352)

②a>b或b

③m>c或c

4. 利用下面的过程求m!和m*n

'------------------------------------------------------- '【程序填空】

'------------------------------------------------------- '功能：利用下面的过程求m!和m*n。

'------------------------------------------------------- Private Sub Form_Click()

Dim m As Integer, n As Integer

m = 2

n = 3

'**********SPACE**********

【?】

End Sub

Private Sub find(x As Integer, y As Integer)

Dim s, i As Integer

'**********SPACE**********

【?】

For i = 1 To x

s = s * i

'**********SPACE**********

p=【?】

Next i

Print s, p

End Sub

答案：

①find m,n或call find(m,n)

②s=a或s=1:p=0

③p+y或x*y

5. 以下程序段用于求∑n!

'------------------------------------------------------- '【程序填空】

'------------------------------------------------------- '功能：以下程序段用于求∑n!

'------------------------------------------------------- Private Sub Form_Click()

Dim sum As Integer, n As Integer

n = InputBox("请输入一个正整数")

sum = 0

For i = 1 To n

'**********SPACE**********

sum =【?】

Next i

Print sum

End Sub

Private Function mul(ByVal x As Integer)

Dim s As Integer, i As Integer

s = 1

'**********SPACE**********

For i = 1 To 【?】

s = s * i

Next i

'**********SPACE**********

【?】

End Function

答案：

①sum+mul(i)

②x

③mul=s

6. 下面的程序段用于建立文件并输出文件

'------------------------------------------------------- '【程序填空】

'------------------------------------------------------- '功能：下面的程序段用于建立文件并输出文件，文件内容如下：'

'*****

' *****

' *****

' *****

' *****

'-------------------------------------------------------

Private Sub Form_Click()

'**********SPACE**********

Open "c:\1.txt" For 【?】 As #1

For i = 1 To 5

Print #1, Spc(i); "*****"

Next i

'**********SPACE**********

【?】

'**********SPACE**********

Open "c:\1.txt" For 【?】 As #1

For i = 1 To 5

Line Input #1, x

Print x

Next i

Close #1

End Sub

答案：

①output

②close #1 或close

③input

7. 下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：下面的程序实现：从键盘输入一个数字，将其插入一个

' 有序数组中，插入后的数组仍保持有序。

'-------------------------------------------------------

Private Sub Form_Click()

Dim a(10) As Integer, x As Integer

For i = 1 To 8

a(i) = 2 * i - 1

Print a(i);

Next i

Print

x = InputBox("请输入要插入的整数")

'**********SPACE**********

【?】

i = 8

Do While a(i) > x

'**********SPACE**********

【?】

i = i - 1

Loop

'**********SPACE**********

If i > 0 Then 【?】

For i = 1 To 9

Print a(i);

Next i

End Sub

答案：

①a(0)=x(可以没有)

②a(i+1)=a(i)

③a(i+1)=x

8.从键盘接收一数字，判断其是否在数组中，如果在数组中则将其删除，否则显示该数字不在数组中。

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：本程序用于实现：从键盘接收一数字，判断其是否在数组

' 中，如果在数组中则将其删除，否则显示该数字不在数组

' 中。

Private Sub Form_Click()

Dim a(10) As Integer, x As Integer

For i = 1 To 10

a(i) = Int(Rnd * 90) + 10

Print a(i);

Next i

Print

x = InputBox("请输入要删除的整数")

For i = 1 To 10

'**********SPACE**********

If a(i) = x Then 【?】

Next i

'**********SPACE**********

If 【?】 Then

For k = i To 9

'**********SPACE**********

【?】

Next k

Print "删除后的数组:"

For i = 1 To 9

Print a(i);

Next i

Else

Print "该数字不在数组中"

End If

End Sub

答案：

①exit for

②i<10

③a(k)=a(k+1)

9. 找出三位数中所有水仙花数

'------------------------------------------------------- '【程序填空】

'功能：过程suixian可以判断某一个数字是否是水仙花数，利用' 该过程找出三位数中所有水仙花数。

' 所谓"水仙花数"是指一个3位数，其各位数字立方和等于' 该数本身。

'------------------------------------------------------- Private Sub Form_Click()

Dim i As Integer

For i = 100 To 999

'**********SPACE**********

【?】

Next i

End Sub

Public Sub suixian(x As Integer)

Dim i%, j%, k%

'**********SPACE**********

i =【?】

j = (x - i * 100) \ 10

k = x - i * 100 - j * 10

'**********SPACE**********

If 【?】 Then Print x

End Sub

答案：

①suixian i 或 call suixian(i)

②x\100

③x=i^3+j^3+k^3

10. 数据交换

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'功能：本程序功能为，单击窗体，Form1的输出结果为

' A1=10 B1=20

' A2=20 B2=10

'------------------------------------------------------- '**********SPACE**********

Public Sub Swap1【?】 x As Integer, ByVal y As Integer) Dim t As Integer

t = x

x = y

y = t

End Sub

Public Sub Swap2(x As Integer, y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 10

b = 20

'**********SPACE**********

【?】 a, b

Form1.Print "A1="; a, "B1="; b

a = 10

b = 20

'**********SPACE**********

【?】 a, b

Form1.Print "A2="; a, "B2="; b

End Sub

答案：

①(byval

②swap1

③swap2

11.文件读写窗体输出

'------------------------------------------------------- '【程序填空】

'------------------------------------------------------- '功能：本程序执行后，最终在窗体上打印数字7。

'------------------------------------------------------- Private Sub Command1_Click()

Dim a As String

'**********SPACE**********

Open App.Path &"\abc.bat" For 【?】 As #1

n = 8

For I = 1 To n

Print #1, I + 1

Next I

Close #1

'**********SPACE**********

Open App.Path &"\abc.bat" For 【?】 As #1

For I = 1 To n

Input #1, a

If I Mod 5 = 0 Then

'**********SPACE**********

Print CInt(a) + 【?】

End If

Next I

Close #1

End Sub

答案：

①output

②input

③1

12.调用函数窗体输出

'-------------------------------------------------------

'-------------------------------------------------------

'功能：写出程序运行后，单击窗体，Form1上显示的内容

' sum 函数的功能为累加求和

' isum = 1

' isum = 3

' isum = 6

' isum = 10

' isum = 15

'------------------------------------------------------- Private Sub Form_Click()

Dim I As Integer, isum As Integer

'**********SPACE**********

For I = 1 To 【?】

isum = sum(I)

'**********SPACE**********

Form1.Print "isum ＝" 【?】

Next I

End Sub

Private Function sum(n As Integer)

Static j As Integer

'**********SPACE**********

【?】 j + n

sum = j

End Function

答案：

①5

②+isum

③j=

13.单击窗体打印输出图形

'-------------------------------------------------------

'-------------------------------------------------------

'功能：单击窗体打印内容如图

'------------------------------------------------------- Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim star As String

'**********SPACE**********

【?】 = "*"

For i = 0 To 6

'**********SPACE**********

For j = 【?】 To 6

'**********SPACE**********

Form1.Print star【?】

Next j

答案：

①star

②6-i

③;

14. 单击窗体打印输出数字

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'功能：写出程序运行时单击窗体后，Form1上输出结果。

' 0 2 4

' -1 1 3

' -2 0 2

' -3 -1 1

'------------------------------------------------------- Private Sub Form_Click()

2012 VB_NET练习题2(题目)

第1-2章 https://www.wendangku.net/doc/b016582524.html, 基础 一、题1 1．.NET 的目的就是将( )作为新一代操作系统的基础，对互联网的设计思想进行扩展。 2．对象的特征称( )，对象能够执行的操作称( )，对象能够识别的操作称（ ）。 3．面向对象的程序设计语言的基本编程模式是( )驱动。 4．要退出应用程序的执行，不能执行下列的( )语句。 ①End ②Application.Exit ③Application.Exit() ④Stop ⑤Debug.Break 5.要使文本框中的文字不能被修改，应把（ ）属性设置成False 。 6.当运行程序时，系统自动执行启动窗口的( )事件过程。 7.当文本框的ScrollBars 属性设为Horizontal ，MultLine 属性设为True,却没有效果，原因是( )。 8．图片控件PictureBox 的属性SizeMode 用于调节框内显示图的大小。下面的( )枚举值能使图片自动缩放填满整个图片框。 ①Zoom ②StretchImage ③AutoSiuze ④CenterImage 二、题2 https://www.wendangku.net/doc/b016582524.html, 框架包括 和NET 类库。 2．项目可以视为编译后的一个可执行单元，可以是应用程序、动态链接库等，而企业级的解决方案往往需要多个可执行程序的合作，为便于管理，在Visual https://www.wendangku.net/doc/b016582524.html, 集成环境中引入了 。 3．要想Label 控件显示给定的文字“您好”，应在设计状态下设置它的 属性值。 4．要想在控制台程序运行时输入信息，可使用Console 对象的 方法，要输出信息应使用Console 对象的 方法。 5．在https://www.wendangku.net/doc/b016582524.html, 中， 过程是控制台应用程序的入口点。 6．语句：Me.BackgroundImage= ，可以清除窗体的背景图。 第3章 数据类型与表达式 一、题1 1．将算术式，e d c b a -+-?15写成https://www.wendangku.net/doc/b016582524.html, 表达式为( )。 2．数学式“2／3 e (x+y)”的VB ．NET 表达式是( )。 3.15除以4余数的-3次方的VB ．NET 表达式为（ ） 4．将变量k 四舍五入保留2位小数的表达式是（ ）。 5．要定义固定长度字符串变量str 要使用（ ）。 6．表达式Chr(Int(Rnd*10+66))所产生的是( )。 7.表达式Len(“123程序设计ABC ”)的值是( )。 二、题2 1．若A=20，B=80，C=70，D=30，则表达式A+B>160 or (B*C>200 And Not D>60)的值是 。 2．表达式7Mod4*4^3／6\2的值为: 。 3.表达式Len(Str(17.35))mod 2的值为 。 https://www.wendangku.net/doc/b016582524.html, 的一个语句好可以分别写在多行上，行末尾加上 作为续行标志；另

《VB程序设计》综合复习资料习题

《VB程序设计》综合复习资料习题

《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual 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、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页

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．只保存工程文件即可 第 3 页共 32 页

第二部分 VB练习题与答案

VB 练习题与答案

96 第2章数据类型与表达式 一、选择题 1. 一个语句行内写多条语句时，每个语句之间用( )符号分隔。 A. ， B. ： C. 、 D. ； 2. 一句语句要在下一行继续写，用( )符号作为续行符。 A. ＋ B. – C. _ D. … 3. 下面( )是合法的变量名。 A. X_yz B. 123ab C. integer D. X-Y 4. 下面( )是不合法的整数。 A. 100 B. ＆Ol00 C. ＆H100 D. ％100 5. 下面( )是合法的字符常量。 A. ABC＄ B. "ABC" C. 'ABC' D. ABC 6. 下面( )是合法的单精度型变量。 A. num! B. sum％ C. xinte＄ D. mm＃ 7. 下面( )是不合法的单精度常数。 A. 100！ B. 100.0 C. 1E+2 D. 100.0D+2 8. 表达式16/4-2^5*8/4 MOD 5\2的值为( )。 A. 14 B. 4 C. 20 D. 2 9. 数学关系3≤x＜10表示成正确的VB表达式为( )。 A. 3＜=X＜10 B. 3＜＝x AND x＜10 C. x＞＝3 OR x＜10 D. 3＜＝x AND＜10 10. “＼”、“／”、“Mod”、“*”四个算术运算符中，优先级别最低的是( )。 A. ＼ B. ／ C. Mod D. * 11. 与数学表达式ab/3cd对应的不正确V isual Basic 6.0表达式是( )。 A. a*b／(3*c*d) B. a／3*b／c／d C. a*b／3／c／d D. a*b／3*c*d 12. Rnd函数不可能为下列( )值。 A. 0 B. 1

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. 下面过程定义语句合法的是____________。

2016年计算机二级《VB》基础练习题及答案(2)

2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较

程序设计语言VB_习题集(含答案)

《程序设计语言VB》课程习题集 一、单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性

8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly

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

VB程序设计考试题库 优质文档

优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer

完整word版,VB程序设计例题12例

索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。

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课后练习答案习题解答 (5)

第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。 答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。 答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。 答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。 答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。 答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。 答案：Index 12．建立控件数组有两种方法：（）和（）。 答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double

VB程序设计试题及答案(一)

VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用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 … … Next x Next x

vb练习题及答案.doc

vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23

25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb

《VB程序设计基础》模拟精彩试题

《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。

VB练习题2

1.项目文件的扩展名是（） A．.vb B．.sln C..exe D．.vbproj 2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。 A．工具箱B．属性 C.即时D．窗体 3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。 A．Caption B．Tip C．Item D．Text 4.在https://www.wendangku.net/doc/b016582524.html,中，下面属于方法的是（）。 A.Focus B.SelectedText C.LostFocus D.Keypress 5.一条语句要在下一行继续写，可用（）符号作为续行符。 A.+ B.- C.空格和_ D.... 6.若要使命令按钮不可操作，要对（）属性进行设置。 A.Enabled B.Visible C.BackColor D.Text 7.在https://www.wendangku.net/doc/b016582524.html,集成环境中创建https://www.wendangku.net/doc/b016582524.html,应用程序时，除了工具箱窗口、窗体窗口和属性窗口 外，必不可少的窗口是（） A．窗体布局窗口B．立即窗口 C．代码窗口D．监视窗口 8.当运行程序时，系统自动执行启动窗体的（）事件过程 A．Load B．Click C．Unload D．GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（） A．文本框没有内容B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置 A．BackColor B．BorderStyle C．ForeColor D．BackStyle 11.数据类型为Long的类型标识符为（）。 A．%B．&C．!D．# 12.下面（）是日期型常量。 A．“5/17/12”B．5/17/12 C．#5/17/12#D．(5/17/12) 13.下面的（）是合法的单精度型变量。 A.num! B.sum% C.char! D.mm# 14.下面的（）是合法变量名。 A.X_yz B.123abc C.Integer D.X-Y 15.Rnd函数不可能为下列的（）值。 A.0 B.1 C.0.1234 D.0.0005 16.图片框控件（PictureBox）是专门用于显示图片的控件，主要属性image用于设置显示 在控件上的图片，使用（）语句可以在程序中消除已装入的图片。 A.PictureBox控件名.image=”” B．PictureBox控件名.image=Nothing C．PictureBox控件名.image=Image.FromFile(“”) D．PictureBox控件名.image=Image.FromFile(Nothing) 17.表达式16/4-2^5*8/4Mod5\2的值为（） A.14 B.4 C.20 D.2 18.表达式Len（“123程序设计ABC”）的值是（） A.10 B.14 C.20 D.17 19.为了给x,y,z三个整型变量赋初值1，正确的赋值语句是（）。 A.x=1:y=1:z=1 B.x=1，y=1，z=1