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

简单题(1)【解题思路】通过图片框的Name 、Picture属性设置图片框的名称和加载图片，在Form_Click事件过程中，通过图片框Print方法，在图片框中显示VB等级考试。【操作步骤】步骤1：建立界面，在窗体中添加一个图片框并设置图片框的属性，属性见表3.71。表3.71控件图片框属性Name Picture设置值PicTu1-1.jpg步骤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标题控件显示命令按钮隐藏命令按钮名称menusubMenu1subMenu2内缩符号011步骤2：编写程序代码。参考答案Private Sub submenu1_Click() Command1.Visible = TrueEnd SubPrivate Sub submenu2_Click() Command1.Visible = FalseEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第7套第一大题的第二小题来进行同类知识点的练习。简单题(1) 【解题思路】通过循环语句实现xn()的乘幂运算；在命令按钮的单击事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的结果运算；最后运用Call 语句调用SaveResult函数语句，并将结果进行保存在文件夹下的 out4.dat文件中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Function xn(m As Integer) As LongDim i As IntegerDim tmp As Longtmp = ?For i = 1 To mtmp =？Next? = tmpEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerDim i As IntegerDim t As IntegerDim z As Long, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To nt = x - iz = z + ?NextLabel1.Caption = zCall SaveResultEnd SubPrivate Sub_SaveResult()Open App.Path & out3.dat For Output As #1Print #1, Label1.CaptionClose #1End 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 arrPrivate Sub_Form Load() ？= Array(第一项， 第二项， 第三项， 第四项)Label1.Caption = arr(0)Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()? i As IntegerLabel1.Caption =？If i = 3 Theni =？Elsei = i + 1End IfEnd 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个位置；重复判断，直到ij把开始暂存的数放到i的位置，使奇数移到前面，偶数移到后面。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Sub Command1_Click()RandomizeFor k = 0 To 9Text1(k) = CInt(Rnd() * 899 + 100)NextEnd SubPrivate Sub Command2_Click()Dim i%, j%, temp%, flag As Booleani = 0j = ?？ = Text1(j)flag = TrueWhile (i ？）If flag ThenIf Text1(i) Mod 2 = 0 ThenText1(j) = Text1(i)j = j - 1flag = Not flagElsei = i + 1End IfElseIf Text1(j) Mod 2 = ? ThenText1(i) = Text1(j)i = i + 1flag = Not flagElsej = j - 1E