VB上机模拟考试习题集(01-50)解答

格式：doc
大小：405.00 KB
文档页数：47

1.1上机模拟试题1解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub Command1_Click()

Image1.Picture = LoadPicture(App.Path & "\图片.jpg")

End Sub

Private Sub Command2_Click()

Image1.Picture = LoadPicture("")

End Sub

2. 简单操作

(1) 程序代码如下：

Private Sub Command2_Click()

Dim i As Integer, max As Integer, N As Integer

For i = 1 To 100

If a(i) = (Int(Sqr(a(i)))) ^ 2 Then

If a(i) > max Then

max = a(i)

End If

N = N + 1

End If

Next i

Text1.Text = CStr(max)

Text2.Text = CStr(N)

End Sub

(2)

' ? "a0001" 其中?改为：List1.AddItem

' For i = 0 To ? 其中?改为：List1.ListCount - 1

' List1.ListIndex = ? 其中?改为：i

' ? Text1.Text 其中?改为：List1.AddItem

' ? 其中?改为：End

3. 综合应用

' a(i) = Fix(Rnd * ? + 1) 其中?改为：100

' For j = 1 To ? 其中?改为：i - 1

' i = ? 其中?改为：i - 1

' If a(i) = ? Then 其中?改为：num

' If ? > 10 Then 其中?改为：i

1.2上机模拟试题2解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub HS1_Change()

Text1.Width = HS1.Value 1 End Sub

2. 简单操作

(1)

' While (k < List2.?) 其中?改为：ListCount

' If ?.Selected(k) = True Then 中?改为：List2

' List2.RemoveItem ? 其中?改为：k

' List1.RemoveItem List1.? 其中?改为：List1.ListIndex

(2) 程序代码如下：

Private Sub C1_Click()

For i = 0 To 2

If Op1(i).Value = True Then

n = Left(Op1(i).Caption, 2)

t = 1

For j = 1 To n

t = t * j

Next j

End If

Next i

Text1 = t

End Sub

3. 综合应用

' CD1.FilterIndex = ? 其中?改为：2

' Text1.Text = ? 其中?改为：a

' CD1.Action = ? 其中?改为：2

程序代码如下：

Private Sub C2_Click()

Text1.Text= UCase(Text1.Text)

End Sub

1.3上机模拟试题3解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub C1_Click()

Text2.Text = Text1.Text

End Sub

2. 简单操作

(1)

' S1 = ? 其中?改为：Text1.Text

' Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1) 其中?改为：" "

' List1.AddItem ? 其中?改为：S2

' S2 = ? 其中?改为：""

(2) 程序代码如下：

' For i = ? To Cb1.ListCount - 1其中?改为：0

' If Cb1.List(i) = Cb1.? Then 其中?改为：Text

' Cb1.? Cb1.Text 其中?改为：AddItem 2

3. 综合应用

程序代码如下：

Private Sub Form_Load()

Dim str As String

Open App.Path + "\in5.txt" For Input As #1

Do While Not EOF(1)

Input #1, str

Text1.Text = Text1.Text + str

Loop

Close #1

End Sub

Private Sub C1_Click()

Open App.Path + "\out5.txt" For Output As #2

Print #2, Text1.Text

Close #2

End Sub

1.4上机模拟试题4解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub Command1_Click()

Shape1.Shape = 3

End Sub

Private Sub Command2_Click()

Shape1.BorderColor = &HFF&

End Sub

2. 简单操作

(1)

' Select Case ? 其中?改为：Index

' Timer1.Enabled =? 其中?改为：True

' If Picture1.Left + Picture1.Width >= ? Then 其中?改为：Form2.Width

' Picture1.Left = ? 其中?改为：0

(2)

' If ? = True Then 其中?改为：Option1.Value = True

' If ? = True Then 其中?改为：Option3.Value = True

' Label2.Caption = ? 其中?改为：s

3. 综合应用

程序代码如下：

Private Sub Command1_Click()

'====考生编写程序开始====

Dim i As Integer, j As Integer, max As Integer

max = a(1, 1)

For i = 1 To 4

For j = 1 To 4 3 If max < a(i, j) Then max = a(i, j)

Next j

Next i

Label3.Caption = max

'====考生编写程序结束====

'不得修改以下部分

save Label3

End Sub

Private Sub Command2_Click()

'====考生编写程序开始====

Dim i As Integer, j As Integer, sum As Integer

sum = 0

For i = 1 To 4

For j = 1 To 4

If i = j Then sum = sum + a(i, j)

Next j

Next i

Label4.Caption = sum

'====考生编写程序结束====

'不得修改以下部分

save Label4

End Sub

1.5上机模拟试题5解答

1. 基本操作

(1) 略

(2) 程序代码如下：

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Command3_Click()

Call sub1

End Sub

Private Sub Timer1_Timer()

Text1.Text = Text1.Text + 1

End Sub2.

简单操作

(1)

' For i = 1 To ? 其中?改为：5

' For j = 1 To ? 其中?改为：2 * i - 1 4 ' For j = 1 To ? 其中?改为：i + 1

' For j = 1 To ? 其中?改为：9 - 2 * i

(2)

' ? = False 其中?改为：Timer1.Enabled

' Shape2.Top = ? + d * 50 其中?改为：Shape2.Top

' If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top +

Shape1.Height Then 其中?改为：Top

' Shape2.Left = ? + d * 50 其中?改为：Shape2.Left

3. 综合应用

' n = n + ? 其中?改为：1

' List1.AddItem ? 其中?改为：ch$

程序代码如下：

Private Sub Command2_Click()

'需要考生编写的内容

Dim x As Single, p As Single

x = Val(Text1.Text)

If x < 500 Then

p = 1

ElseIf x < 1000 Then

p = 0.98

ElseIf x < 1500 Then

p = 0.95

ElseIf x < 2000 Then

p = 0.92

Else

p = 0.9

End If

Text2.Text = CStr(Int(x * 0.3 * p))

End Sub

Private Sub List1_Click()

'需要考生编写的内容

Dim i As Integer

十套练习和模拟题的VB题答案001

1 程序之外的是注释说明，程序本身不需要。

第一套VB

'完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5

'个数按照从小到大的顺序排列并显示在窗体上。

'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。

Private Sub Command1_Click()

Dim x As Long

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

Dim a(1 To 5) As Single

For i = 1 To 5

a(i) = Val(InputBox("请在输入第" + Str(i) + "/5个数"))

Print a(i);

Next i

For i = 1 To 4 （排序数的个数减1，5-1=4）

Min = a(i): m = i

For x = i + 1 To 5

If Min > a(x) Then Min = a(x): m = x （求最小值min ，min比其他值大则min要新值，保持最小）

Next x

k = a(i): a( I ) = a(m): a(m) = k （两变量交换数值）

Next i

Print "从小到大排序后的数据为："

For i = 1 To 5

Print a(i);

Next i

End Sub

第二套

'完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第

'三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。

vb第五套模拟题及答案

院：专业：学号：姓名：教学班号：

云南农业大学计算机公共课VB第五套模拟题

本试题满分100分，考试时间120分钟。

题号一

二三四五六七八总分

得分

阅卷人

一、选择题（每题2分，共50分）

1．在正确的安装VB后，可以通过多种方式启动VB，在以下方式中不能启动VB的是（）

A．通过“开始”菜单中的“程序”命令

B．通过“我的电脑”找到VB6.exe，双击该文件名

C．通过“开始”菜单中的“运行”命令

D．进入DOS方式，执行VB6.exe

2．VB窗体设计器的主要功能是（）

A．建立用户界面 B．编写源程序代码 C．添加图 D．显示文字

3．同时改变一个活动控件的高度和宽度，正确的操作是（）

A．拖拉控件4个角上的某个小方块

B．只能拖拉位于控件右下角的小方块

C．只能拖拉位于控件左下角的小方块

D．不能同时改变控件的高度和宽度

4．下列变量命名正确的是（）

A．myfile B．vb 1 C．page @2 D．cmd.1

5．以下关于变量类型说明符的使用正确的是（）

A．Dim a% : a=9000 B．Dim a : a=2000%

C．Dim a : a#=”OK” D．Dim a : a&=True

6．DataTime是一个Data类型的变量，以下赋值语句中错误的是（）

A．DataTime=#5/14/01# B．DataTime=#September 1,2001#

C．DataTime=#12:15:00 AM# D．”8/8/99”

7．语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是（）

VB机试章节练习试卷1(题后含答案及解析)

VB机试章节练习试卷1 (题后含答案及解析)

题型有：1. 基本操作题

基本操作题（30分）

1．在名为Form1的窗体上绘制一个水平滚动条，名为HS1，最小值为0、最大值为80；再绘制3个命令按钮，名称分别为Cmd1、Cmd2和Cmd3，标题分别为“左端”、“居中”和“右端”。编写适当的事件过程，使程序运行后，若单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如下图所示。注意：程序中不得使用任何变；文件必须存放在考生文件夹中，窗体文件名为 execise118.frm，工程文件名为execise118.vbp。

正确答案：

2．在名为Form1的窗体上绘制一个标签，名为Lab1，标题为“请输入一个摄氏温度”；绘制两个文本框；名称分别为Text1和Text2，内容设为空：再绘制一个名为Cmd1的命令按钮，其标题为“华氏温度等于”。编写适当的程序，使得单击“华氏温度等于”按钮时，将Textl中输入的摄氏温度(c)转换成为华氏温度(f)，转换公式为：f=c*9/5+32,并显示在Text2中。程序运行结果如下图所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为 execise119.frm，工程文件名为execise119.vbp。

正确答案：

3．在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+1N的和显示在Text2中。程序运行结果如下图所示。

vb上机题库及答案

【篇一：vb期末考试上机题编程答案】

xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。如不按要求保存，造成文件无法上传，后果自负！具体要求：

1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；

3、单击“清除”按钮，则将列表框和文本框清空；

4、单击“退出”按钮，结束程序运行；

5、程序中应包含一个过程，用于判断一个数是否是幸运数。

解：private sub command1_click()

dim i as integer, a as integer

for i = 1000 to 9999

if k(i) then list1.additem i: a = a + 1

next i

text1.text = a

end sub

private sub command2_click()

list1.clear

text1.text =

end sub

private sub command3_click()

end

end sub

private function k(n as integer) as integer

dim i as integer, a as integer, s1 as integer, s2 as integer dim

s as string

s = cstr(n)

for i = 1 to len(s) / 2

s1 = s1 + mid(s, i, 1)

下载提示

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VB上机模拟考试习题集(01-50)解答

合集下载

十套练习和模拟题的VB题答案001

vb第五套模拟题及答案

VB机试章节练习试卷1(题后含答案及解析)

vb上机题库及答案

文档推荐

最新文档