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

简单题(1) 【解题思路】通过图片框的Name 、Picture属性设置图片框的名称和加载图片，在Form_Click事件过程中，通过图片框Print方法，在图片框中显示VB等级考试。 【操作步骤】 步骤1：建立界面，在窗体中添加一个图片框并设置图片框的属性，属性见表3.71。 表3.71 控件 图片框 属性 Name Picture 设置值 Pic Tu1-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 标题 控件 显示命令按钮 隐藏命令按钮 名称 menu subMenu1 subMenu2 内缩符号 0 1 1 步骤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() ？= Array(第一项， 第二项， 第三项， 第四项) Label1.Caption = arr(0) Tim