vb程序题技巧

VB程序设计结构：顺序结构、分支结构、循环结构。 二、分支结构：

一、顺序结构题： 1、以下程序段的执行结果是?

A=1

b=5

c=4

a=b

b=c

c=a

Print a;b;c 3、下面程序段的划线部分应是? A=356 b=214 t=a a=b print a;b 运行结果 214356

5、经过几下几条语句，A和B的 值分别为多少？ A=6 B=7 C=A A=B B=C

2、该程序段运行后， 变量b的值为 ? a=7 b=8 a=a+b b=a-b 4、该程序段运行后，变量a的值为 ? a=8 b=7 z=a a=b b=z 6、Text1和Text2中分别输入5，6，求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z

IF <条件> Then 当条件满足时，执行语句组1 <语句组1> 当条件不满足时，执行

1. 时钟。程序运行后，每隔2秒命令按钮Command1向右移动100

个单位。

Option Explicit

Private Sub Form_Load() Timer1.Interval = 2000 End Sub

Private Sub Timer1_Timer() Call mymove End Sub Sub mymove()

Command1.Left = Command1.Left + 100 End Sub

2.滚动条。水平滚动条HScroll1的数值范围0～100，LargeChange设置为10，SmallChange设置为5，水平滚动条HScroll1的值(Value)代表正方形的边长，当水平滚动条的滑块变化时，标签Label1中正方形边长随之改变，文本框Text1中正方形面

积也随之改变

Option Explicit

Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 100 HScroll1.SmallChange = 5 HScroll1.LargeChange = 10 End Sub

Private Sub hscroll1_change() Cal

VB2-2

1、数组最大值。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，找出这n个数中第二大的数放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), n%, i%, j%, t% n = Val(Text1.Text) - 1 ReDima(n) TextToArray Text2, a For i = 0 To n For j = iTo n t = a(i)

If a(j) > a(i) Then a(i) = a(j): a(j) = t Next Next

Text3.Text = a(1) End Sub

2、数组排序。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，将n个元素按逆序（从大到小）排序后放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), imi

三、填空题 1、【程序说明】

下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click()

Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer

For a =0 to 9 '个位数数码

For b = 0 To 9 '十位数数码 For c = ----1----

If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3----

If n mod 15 = 0 Then Print End If Next c,b,a

Print \总共有这样的三位数\个\End Sub 1、1 to 9

2、n+1

【程序改错】

题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数 Option Explicit

Private Sub Form_Click() Const n = 8

Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(\请输入一个 0 - 255 之间的正整数：\ Print x

For m = 1 To n a(m) = x Mod 2 x = x / 2 Next m s = \

For m = n To 0 Step -1 s = Str(a(m)) Next m Print s End Sub 答案：

=======(答案1)======= For m = 0 To n

=======(答案2)======= x= x \\ 2

=========或========= x= int(x/2)

==

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度

'1.输入3个数，输出最大的数 Private Sub Command11_Click() Dim max% X1=Val(InputBox(\X2=Val(InputBox(\x3=Val(InputBox(\max=X1 If max<=X2 Then max=X2 End If If max<=x3 Then max=x3 End If MsgBox(\个数之中的最大数max=\End Sub Private Sub Command12_Click() '2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 a=Val(InputBox(\B=Val(InputBox(\c=Val(InputBox(\s=B^2-4*a*c If a<>0 Then If s=0 Then MsgBox(\两个相等实根\ElseIf s>0 Then MsgBox(\两个不相等实根\ElseIf s<0 Then MsgBox(\两个不相等虚根\End If Else MsgBox(\无解\End If End Sub Private Sub Command13_Click() '3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示\恭喜！成绩通过！\，若小于60，则弹出消息框，显示\抱歉！成绩没有通过！\X=Val(InputBox(\If X>=60 Then MsgBox(\恭喜！成绩通过！\Else MsgBox(\抱歉！成绩没有通过！\End If End Sub Private Sub Command14_Click() '4.输入一年份，判断它是否为闰年，

'1.输入3个数，输出最大的数 Private Sub Command11_Click() Dim max% X1=Val(InputBox(\X2=Val(InputBox(\x3=Val(InputBox(\max=X1 If max<=X2 Then max=X2 End If If max<=x3 Then max=x3 End If MsgBox(\个数之中的最大数max=\End Sub Private Sub Command12_Click() '2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 a=Val(InputBox(\B=Val(InputBox(\c=Val(InputBox(\s=B^2-4*a*c If a<>0 Then If s=0 Then MsgBox(\两个相等实根\ElseIf s>0 Then MsgBox(\两个不相等实根\ElseIf s<0 Then MsgBox(\两个不相等虚根\End If Else MsgBox(\无解\End If End Sub Private Sub Command13_Click() '3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示\恭喜！成绩通过！\，若小于60，则弹出消息框，显示\抱歉！成绩没有通过！\X=Val(InputBox(\If X>=60 Then MsgBox(\恭喜！成绩通过！\Else MsgBox(\抱歉！成绩没有通过！\End If End Sub Private Sub Command14_Click() '4.输入一年份，判断它是否为闰年，

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度