vb编程设计例题图文,vb程序设计基础答案
两道vb编程题
1
Private Sub Form_Load()
List1.Clear
List1.AddItem ""大学计算机基础""
List1.AddItem ""VB程序设计""
List1.AddItem ""数据库技术与应用""
List1.AddItem ""C程序设计""
List1.AddItem ""多媒体技术""
List1.AddItem ""硬件技术基础""
List1.AddItem ""网络技术与应用""
List1.AddItem ""WEB程序设计""
End Sub
Private Sub List1_Click()
If List2.ListCount = 5 Then
MsgBox ""超过5门课程，不能再选！""
Exit Sub
Else
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub
2
Private Sub Command1_Click()
Dim N As Long, Flags As Boolean
N = Val(Text1.Text)
Flags = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
Flags = False
Exit For
End If
Next
MsgBox N IIf(Flags, "", "不") "是一个素数"
End Sub
VB编程设计题：红绿灯
如图在窗体上添加：
1、四个shape控件，作为灯框、红灯、黄灯、绿灯，分别命名为：LampBox、RedLamp、YellowLamp、GreenLamp
2、一个命令按钮，命名为：cmdRun，标题为“启动”
3、三个文本框控件，来设置红灯、黄灯、绿灯亮的时间（秒），分别命名为：txtRedTime、txtYellowTime、txtGreenTime
4、四个时钟控件，作为红灯、黄灯、绿灯和闪烁时间控制，分别命名为：tmrRed、tmrYellow、tmrGreen、tmrChange
5、其它控件和布局见图
程序如下：
Private?Red?As?Long
Private?Yellow?As?Long
Private?Green?As?Long
Private?Black?As?Long
Private?LampNo?As?Integer
Private?Sub?cmdRun_Click()
If?cmdRun.Caption?=?"启动"?Then
txtRedTime.Enabled?=?False
txtYellowTime.Enabled?=?False
txtGreenTime.Enabled?=?False
cmdRun.Caption?=?"停止"
tmrRed.Interval?=?Val(txtRedTime.Text)?*?1000
tmrYellow.Interval?=?Val(txtYellowTime.Text)?*?1000
tmrGreen.Interval?=?Val(txtGreenTime.Text)?*?1000
LampNo?=?0
tmrChange.Enabled?=?True
Else
tmrRed.Enabled?=?False
tmrYellow.Enabled?=?False
tmrGreen.Enabled?=?False
tmrChange.Enabled?=?False
RedLamp.FillColor?=?Black
YellowLamp.FillColor?=?Black
GreenLamp.FillColor?=?Black
txtRedTime.Enabled?=?True
txtYellowTime.Enabled?=?True
txtGreenTime.Enabled?=?True
cmdRun.Caption?=?"启动"
End?If
End?Sub
Private?Sub?Form_Load()
tmrRed.Enabled?=?False
tmrYellow.Enabled?=?False
tmrGreen.Enabled?=?False
tmrChange.Enabled?=?False
Red?=?HFF
Yellow?=?HFFFF
Green?=?HFF00
Black?=?H0
LampBox.FillColor?=?Black
RedLamp.FillColor?=?Black
YellowLamp.FillColor?=?Black
GreenLamp.FillColor?=?Black
tmrChange.Interval?=?300
txtRedTime.Text?=?6
txtYellowTime.Text?=?1
txtGreenTime.Text?=?8
End?Sub
Private?Sub?tmrChange_Timer()
Static?n?As?Integer
n?=?n?+?1
Select?Case?LampNo
Case?0
If?RedLamp.FillColor?=?Black?Then
RedLamp.FillColor?=?Red
YellowLamp.FillColor?=?Yellow
GreenLamp.FillColor?=?Green
Else
RedLamp.FillColor?=?Black
YellowLamp.FillColor?=?Black
GreenLamp.FillColor?=?Black
End?If
Case?1
If?RedLamp.FillColor?=?Black?Then
RedLamp.FillColor?=?Red
Else
RedLamp.FillColor?=?Black
End?If
Case?2
YellowLamp.FillColor?=?Yellow
Case?3
If?GreenLamp.FillColor?=?Black?Then
GreenLamp.FillColor?=?Green
Else
GreenLamp.FillColor?=?Black
End?If
End?Select
If?n?=?4?Then
n?=?0
LampNo?=?LampNo?+?1
If?LampNo?=?5?Then?LampNo?=?1
Select?Case?LampNo
Case?1
RedLamp.FillColor?=?Red
YellowLamp.FillColor?=?Black
GreenLamp.FillColor?=?Black
tmrRed.Enabled?=?True
Case?2,?4
RedLamp.FillColor?=?Black
YellowLamp.FillColor?=?Yellow
GreenLamp.FillColor?=?Black
tmrYellow.Enabled?=?True
Case?3
RedLamp.FillColor?=?Black
YellowLamp.FillColor?=?Black
GreenLamp.FillColor?=?Green
tmrGreen.Enabled?=?True
End?Select
tmrChange.Enabled?=?False
End?If
End?Sub
Private?Sub?tmrGreen_Timer()
tmrChange.Enabled?=?True
tmrGreen.Enabled?=?False
End?Sub
Private?Sub?tmrRed_Timer()
tmrChange.Enabled?=?True
tmrRed.Enabled?=?False
End?Sub
Private?Sub?tmrYellow_Timer()
tmrChange.Enabled?=?True
tmrYellow.Enabled?=?False
End?Sub
VB编程题
Private Sub Command1_Click() '运行
Dim a As Long, b As Long, a0 As Long, b0 As Long, i As Long
List1.Clear
a = Val(Text1.Text): b = Val(Text2.Text)
If a b Or a 0 Or b 0 Then MsgBox "第一个数需要比第二个数小，且均为整数！": Exit Sub
a0 = Int(Sqr(a))
b0 = Int(Sqr(b))
If a a0 * a0 Then a0 = a0 + 1
For i = a0 To b0
If isSxpf(i * i) Then List1.AddItem i * i
Next i
End Sub
Private Function isSxpf(ByVal n As Long) As Boolean
Dim t As String
t = CStr(n)
For i = 1 To Len(t) - 1
If Mid(t, i, 1) = Mid(t, i + 1, 1) Then isSxpf = False: Exit Function
Next i
isSxpf = True
End Function
Private Sub Command2_Click() '清除
Text1 = ""
Text2 = ""
List1.Clear
End Sub
Private Sub Command3_Click() '退出
End
End Sub
vb编程题：1. 编写程序实现如下功能：如图一 2. 编写程序实现如下功能：
Option?Explicit
Private?Sub?Command1_Click()
????List1.Clear
????List3.Clear
????Dim?i?As?Integer,?n?As?Integer,?nj?As?Integer,?sj?As?Integer,?so?As?Integer
????sj?=?0:?so?=?0:?nj?=?0
????????
????For?n?=?0?To?9
????????i?=?Val(List2.List(n))
????????If?i?Mod?2??0?Then
????????????List1.AddItem?i
????????????sj?=?sj?+?i
????????????nj?=?nj?+?1
????????Else
????????????List3.AddItem?i
????????????so?=?so?+?i
????????End?If
????Next?n
????Label4.Caption?=?nj??"个奇数和="??sj
????Label5.Caption?=?10?-?nj??"个奇数和="??so
????
????????
End?Sub
Private?Sub?Form_Load()
????Dim?i?As?Integer
????Randomize
????For?i?=?0?To?9
????????List2.AddItem?Int(Rnd?*?100)
????Next?i
????
End?Sub
VB程序设计 题目
题号:1 题型:单选题
内容:
下列选项中不正确的是
选项:
c、当用 Show方法显示窗体时，必定会发生Load事件
题号:2 题型:单选题
内容:
当目录列表框的Dir1.Path属性的改变，将会触发下列哪一个事件
选项:
c、Dir1_Change事件
题号:3 题型:单选题
内容:
计时器控件的Interval属性可以设定Timer 事件触发的时间间隔，其时间间隔以下列哪一个为单位
选项:
a、毫秒
题号:4 题型:单选题
内容:
对象的边框类型由下列哪个属性设置
选项:
c、BorderStyle
题号:5
内容:如下运算中运算优先级最高的是：
图形:
选项:
d、^
题号:6 题型:单选题
内容:
在使用MsgBox输出时，如果按钮位置是空（默认参数），则相当于使用了参数
选项:
b、VbOkOnly
题号:7 题型:单选题
内容:
当文本框的ScrollBars属性设置了非零值，却没有效果，原因是
选项:
b、文本框的MultiLine属性为False
题号:8 题型:单选题
内容:
CLS可清除窗体或图形框中下列哪一个的内容
选项:
c、程序运行时产生的图形和文字
题号:9 题型:单选题
内容:
要使某控件在运行时不可显示，应对下列哪个属性进行设置
选项:
b、Visible
题号:10 题型:单选题
内容:
用来设置粗体字的属性是
选项:
c、FondBold
题号:11 题型:是非题 本题分数:5
内容:
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
选项:
1、 错
--------------------------------------------------------------------------------
题号:12 题型:是非题
内容:
复选框的Value属性为True时，复选框被选中
选项:
2、 对
题号:13 题型:是非题
内容:
窗体、框架、图片框、图像框都是容器对象
选项:
1、 错
题号:14 题型:是非题
内容:
在属性窗口中可以修改对象的属性
选项:
2、 对
题号:15 题型:是非题
内容:
类是对象的具体化
选项:
2、 对
题号:16 题型:是非题
内容:
文本框控件的MaxLength属性值为0时，在文本框中不可以输入任何字符
选项:
2、 对
题号:17 题型:是非题
内容:
若设置文本框的PasswordChar属性值为某个字符，则用户无论输入何种字符，在文本框中，全部显示为该字符
选项:
2、 对
题号:18 题型:是非题
内容:
程序流程图是唯一一种描述程序执行过程的图形
选项:
1、 错
题号:19 题型:是非题
内容:
If和End If必须成对使用，有一个If就必须有一个End If与之相对应
选项:
1、 错
题号:20 题型:是非题
内容:
VB中建立窗体菜单可以选择“工具”菜单的“菜单编辑器”命令来完成
选项:
2、 对