在Form1上添加一个图片框，名称为Pic,通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框

简单题(1)

【解题思路】通过图片框的Name 、Picture属性设置图片框的名称和加载图片，在Form_Click事件过程中，通过图片框Print方法，在图片框中显示"VB等级考试"。

【操作步骤】

步骤1：建立界面，在窗体中添加一个图片框并设置图片框的属性，属性见表3.71。

表3.71

步骤2：编写程序代码。

参考答案

Private Sub Form_Click()

Pic.Print "VB等级考试"

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第39套第一大题的第二小题来进行同类知识点的练习。

简单题(2)【解题思路】添加一个名称为Command1的命令按钮，标题为"命令按钮"。 通过菜单编辑器(标题、名称、内缩符号)建立一个菜单，标题为"控件"，名称为menu，包含两个子菜单顶，一个是"显示命令按钮"，名称为subMenu1；另一个是"隐藏命令按钮"，名称为subMenu2。通过Command1的Visible属性的设置，使选择"显示命令按钮"菜单命令，则显示命令按钮控件；而如果选择"隐藏命令按钮"菜单命令，则将命令按钮控件隐藏。

【操作步骤】

步骤1：建立界面，添加一个名称为Command1的命令按钮，标题设置为"命令按钮"。 菜单编辑的相关属性见表3.72。

表3.72

步骤2：编写程序代码。

参考答案

Private Sub submenu1_Click()

Command1.Visible = True

End Sub

Private Sub submenu2_Click()

Command1.Visible = False

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第7套第一大题的第二小题来进行同类知识点的练习。

简单题(1)

【解题思路】通过循环语句实现xn()的乘幂运算；在命令按钮的单击事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的结果运算；最后运用Call 语句调用SaveResult函数语句，并将结果进行保存在文件夹下的 out4.dat文件中。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Private Function xn(m As Integer) As Long

Dim i As Integer

Dim tmp As Long

'tmp = ?

For i = 1 To m

　　　　'tmp =？

Next

'? = tmp

End Function

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer

Dim t As Integer

Dim z As Long, x As Single

n = Val(Text1.Text)

x = Val(Text2.Text)

z = 0

For i = 2 To n

　　　　t = x - i

　　　　'z = z + ?

Next

Label1.Caption = z

Call SaveResult

End Sub

Private Sub_SaveResult()

Open App.Path & "\out3.dat" For Output As #1

Print #1, Label1.Caption

Close #1

End Sub

程序结束

参考答案

第1个？处填入：1

第2个？处填入：tmp * i

第3个？处填入：xn

第4个？处填入：xn(t)

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第2套第二大题的第二小题来进行同类知识点的练习。

简单题(2)

【解题思路】arr 数组含有"第一项"， "第二项"， "第三项"， "第四项"四个值，将Timer1的Interval 属性设置为1000，表示变化的时间间隔为1s，Timer1的Enabled 属性设置为True。标签的Caption属性初值设置为arr(0)，通过If语句和局部变量i的累加实现每隔1秒钟依次显示"第二项"、"第三项"、"第四项"，如此循环。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dim arr

Private Sub_Form Load()

' ？= ("第一项"， "第二项"， "第三项"， "第四项")

Label1.Caption = arr(0)

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

'? i As Integer

'Label1.Caption =？

If i = 3 Then

　　　　'i =？

Else

　　　　i = i + 1

End If

End Sub

程序结束

参考答案

第1个？处填入：arr

第2个？处填入：Static

第3个？处填入：arr(i)

第4个？处填入：0

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题

【举一反三】可以通过第43套第二大题的第二小题来进行同类知识点练习。

【解题思路】令i指向第1个数，j指向最后1个数，并先暂存最后一个数；检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是偶数，则把此偶数放到第j个位置，j向前移1个位置；检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是奇数，则把此奇数放到第i个位置，i向后移1个位置；重复判断，直到i＝j把开始暂存的数放到i的位置，使奇数移到前面，偶数移到后面。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Private Sub Command1_Click()

Randomize

For k = 0 To 9

　　　　Text1(k) = CInt(Rnd() * 899 + 100)

Next

End Sub

Private Sub Command2_Click()

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim i%, j%, temp%, flag As Boolean

i = 0

'　j = ?

'　？ = Text1(j)

flag = True

'　While (i < ？）

　　　　If flag Then

　　　　　　If Text1(i) Mod 2 = 0 Then

　　　　　　　　Text1(j) = Text1(i)

　　　　　　　　j = j - 1

　　　　　　　　flag = Not flag

　　　　　　Else

　　　　　　　　i = i + 1

　　　　　　End If

　　　　Else

'　If Text1(j) Mod 2 = ? Then

　　　　　　　　Text1(i) = Text1(j)

　　　　　　　　i = i + 1

　　　　　　　　flag = Not flag

　　　　　　Else

　　　　　　　　j = j - 1

　　　　　　End If

　　　　End If

Wend

Text1(i) = temp

End Sub

程序结束

参考答案

第1个？处填入：9

第2个？处填入：temp

第3个？处填入：j

第4个？处填入：1

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第29套第二大题的第二小题来进行同类知识点的练习。

本文来源：https://www.2haoxitong.net/k/doc/23b5a049a8114431b80dd809.html