当前位置：文档之家 › 在Form1的窗体上用shape1的形状控件画一个长、宽均为1200的正方形

在Form1的窗体上用shape1的形状控件画一个长、宽均为1200的正方形

  • 格式：doc
  • 大小：61.00 KB
  • 文档页数：6

基础题（1)【解题思路】通过形状控件的Name、Width、Height和Shape属性设置名称为shape1的形状控件并画一个长、宽都为1200的正方形。

通过窗体的Caption、MinButton属性设置窗体的标题为"正方形"，窗体的最小化按钮不可用，设置形状控件的BorderStyle属性使正方形的边框为虚线。

【操作步骤】步骤1：新建一个窗体，在窗体中添加一个形状控件，按照题目要求设置其属性。

程序中用到的控件及属性见表3.75。

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

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

基础题(2)【解题思路】通过窗体的Caption属性设置窗体标题为"标签"，通过标签的Name、Caption、FontSize、AutoSize属性，添加一个名称为Label1，并可自动调整大小的标签，其标题为"计算机等级考试"，字体大小为三号字，通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。

在命令按钮的Click事件过程中，通过Label1的Font属性值的改变，实现单击"宋体"命令按钮，标签内容显示为宋体字体；单击"黑体"按钮，标签内容显示为黑体字体。

【操作步骤】步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.76和表3.77。

步骤2：编写程序代码。

Private Sub Command1_Click()Label1.Font = "宋体"End SubPrivate Sub Command2_Click()Label1.Font = "黑体"End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

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

简单题(1)【解题思路】单击"通话开始"按钮，通过Str(Time())语句在"开始时间"右侧的文本框中显示开始时间，即系统的当前时间，且"通话结束"命令按钮的Enabled属性设置为True，变为可用状态，"通话开始"命令按钮的Enabled属性设置为False，变为不可用；单击"通话结束"按钮，通过Str(Time())语句在"结束时间"右侧的文本框中显示结束时间，即系统的当前时间，同时把系统时间通过Minute函数，Hour函数，Second函数换算成以秒为时间单位，计算通话费用，并将其显示在"通话费用"右侧的文本框中，"通话开始"命令按钮变为可用状态，"通话结束"命令按钮不可用。

【操作步骤】步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。

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

程序提供代码Private Sub Cmd1_Click()'? = Str(Time())Text1(1)．Text = ""：Text1(2)．Text = ""Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1)．Text = Str(Time())t start = Hour(Text1(0)．Text) * 3600 + Minute(Text1(0)．Text) * 60 + Second(Text1(0)．Text) t end = Hour(Text1(1)．Text) * 3600 + Minute(Text1(1)．Text) * 60 + Second(Text1(1)．Text) t = t end - t startm = t \ 60If m < t / 60 Then m = m + 1s = 0.5If m - 3 > 0 Then's = ? + (m - 3) * 0.15End IfText1(2)．Text = Str(s) + "元"'？= TrueEnd Sub程序结束参考答案第1个？处填入：Text1(0)第2个？处填入：s第3个？处填入：Cmd1.Enabled第4个？处填入：Cmd2.Enabled步骤3：调试并运行程序，关闭程序后按题目要求存盘。

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

简单题(2) 【解题思路】单击"读入数据"按钮，运用文件操作和For循环语句从文件in4.txt中读入数据放到二维数组a中。

在Command2 Click事件过程，计算5门课程的平均分，通过CInt函数对平均分取整，存入数组s(i)，并依次放入Text1文本框数组中。

在Command3 Click 事件过程中，通过形状控件的Height 、Top属性和线条的Y1属性，画出直方图，并通过设置形状控件的Visible使平均分的直方图显示出来。

【操作步骤】步骤1：打开本题工程文件。

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

程序提供代码Dim a(5, 10) As IntegerDim s(5)Private Sub Command1_Click()'Open App.Path & "\in4.txt" For ? As #1For i = 1 To 5For j = 1 To 10Input #1, a(i, j)Next jNext iClose #1End SubPrivate Sub Command2_Click()For i = 1 To 5s(i) = 0For j = 1 To 10's(i) = ?Next j'？= CInt(s(i) / 10)Text1(i - 1) = s(i)Next iEnd SubPrivate Sub Command3_Click()For k = 1 To 5Shape1(k - 1)．Height = s(k) * 20m = Line2.Y1'Shape1(k - 1)．Top = ? - Shape1(k - 1)．Height'Shape1(k - 1)．? = TrueNext kEnd Sub程序结束参考答案第1个？处填入：Input第2个？处填入：s(i) + a(i, j)第3个？处填入：s(i)第4个？处填入：Line2.Y2第5个？处填入：Visible步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题【解题思路】单击"读数据"按钮，则将考生文件夹下in5.dat文件的内容读到变量s中；单击"统计"按钮，通过Select Case语句判断是否为空格或是字母(文件中仅含有字母和空格，空格用来分隔不同单词)，通过Len函数得出其中最长单词的长度，并通过比较把最长单词赋值给变量B，运用For语句从字符串s的最后开始查找，判断Len(B) ＝Len(R(m))，找出最后一个以该长度出现的单词，并将该单词的长度显示在Text1文本框内，将该单词显示在Text2文本框内。

【操作步骤】步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为"最长单词的长度"和"以该长度最后一次出现的单词是"的标签；再添加两个名称分别为Text1和Text2，初始值都为空的文本框。

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

程序提供代码Option Base 1Dim s As StringPrivate Sub Command1_Click()Open App.Path & "\in5.dat" For Input As #1s = Input(LOF(1), #1)Close #1End SubPrivate Sub Command2_Click()'需考生编写End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & "\out5.dat" For Output As #1Print #1, Text1.Text, Text2.TextClose #1End Sub程序结束参考答案Private Sub Command2_Click()For i = 1 To Len(s)J = Asc(Mid(s, i, 1))Select Case JCase 48 To 57, 65 To 90, 97 To 122Case ElseMid(s, i, 1) = "-"End SelectNext iJ = Len(s) - 1For i = 1 To JIf Mid(s, i, 1) = "-" And Mid(s, i + 1, 1) = "-" Thens = Left(s, i) + Right(s, J - i)J = J - 1i = i - 1End IfNext is = Left(s, Len(s) - 1)R = Split(s, "-")B = R(0)For i = 1 To UBound(R)If Len(B) < Len(R(i)) Then B = R(i)Next iFor m = UBound(R) To 1 Step -1If Len(B) = Len(R(m)) ThenExit ForEnd IfNextText1.Text = Len(B)Text2.Text = R(m)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

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

合集下载

VB模拟题2013

VB模拟题2013

Visual Basic6.0等级考试模拟试卷第一套模拟试卷一、选择题1．当一个工程含有多个窗体时，单击“启动”按钮，运行的窗体是（）。

A) 正在编辑的窗体B) 第一个添加的窗体C) 最后一个添加的窗体D) 在"工程属性"对话框中指定的窗体2．以下声明语句中错误的是（）。

A) Deflnta-z B) Dim var='ABC'C) Const varl=123 D) Static var3 As Integer3．设a=8，b=6，c= -1；执行语句Print a>b>c后，窗体上显示的是（）。

A) 1 B) True C) False D) 出错信息4．以下能判断是否到达文件尾的函数是（）。

A) LOF B) BOF C) LOC D) EOF5．下列（）语句是合法的。

A) x>3=y B) x+y=5 C) x=y>3 D) x=y+6．执行语句X = InputBox("请输入圆的半径",0,"求圆的面积")，在弹出对话框后输入5回车,则下列叙述正确的是（）。

A) 0是默认值B) X的值是字符"5"C) X的值是数字5 D) 对话框标题是"求圆的面积"7．被一个对象所识别的外界动作被称为（）。

A) 事件B)方法C)过程D)属性8．为了使标签Label1不可见，正确的属性设置为（）。

A) Label1.Visible=True B) Label1.Visible=1C) Label1.Visible=0 D) Label1.Visible=False9．在图形模式下，点亮坐标为X,Y的像素所用的语句是（）。

A) Locate X,Y B) Pset X,Y,5 C) Position X,Y D) Pset(X,Y)10．复选框的Value属性为0时，表示（）。

国家开放大学《VisualBasic程序设计》形考作业1-4参考答案

国家开放大学《VisualBasic程序设计》形考作业1-4参考答案

国家开放大学《VisualBasic程序设计》形考作业参考答案形考作业11.一个VB应用程序可以包含几个vbp文件( )a. 2个b. 可以没有c. 1个d. 不受限制2.有以下程序代码Text1.Text="Visual Basic程序设计",则Text1，Text ，和"Visual Basic程序设计"分别代表( )a. 对象，值，属性b. 对象，方法，属性c. 属性，对象，值d. 对象，属性，值3.启动VB后，就意味着要建立一个新的( )a. 窗体b. 程序c. 文件d. 工程4.后缀为.bas的文件表示( )a. 类模块文件b. 标准类模块文件c. 窗体二进制数据文件d. 窗体文件5.当一个工程中含有多个窗体时，其中的启动窗体是( )a. 在“工程属性”对话框中指定的窗体b. 启动VB时创建的第一个窗体c. 第一个添加的窗体d. 最后一个添加的窗体6.在文本框控件中将Text的内容全部显示为所定义的字符的属性是( )a. 需要编程来实现b. Passwordc. PasswordChard. 以上都不是7.Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是( )a. 从主程序开始执行b. 按过程顺序执行c. 按模块顺序执行d. 事件驱动8.下列四项中合法的变量名是( )a. a/bcb. 4abcc. abcd. integer9.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是( )a. 该可执行文件有病毒b. 以上原因都不对c. 缺少.frm窗体文件d. 运行的机器上无VB系统10.无论何种控件，共同具有的属性是( )a. Enabledb. ForeColorc. Textd. Caption11.以下控件具有Caption属性的分别是（）a. TextBoxb. %33.333 %Labelc. CheckBoxd. CommandButton12.关于标签控件的使用，以下叙述中正确的是：（）a. 标签中显示的文本内容是可以改变的b. 当标签控件中显示的文本内容发生变化时触发Change事件c. 可以通过程序指令改变标签控件在窗口中的位置d. 标签控件在窗口中的位置一旦设定就不能更改13.以下VB文件名中，后缀不是.bas的文件分别有（）a. 窗体二进制数据文件b. 类模块文件c. 窗体文件d. 标准类模块文件14.对表达式16/4-2^5*8/4MOD5\2计算错误的结果分别是（）a. 20b. 2c. 4d. 1415.当一个工程中含有多个窗体时，以下哪些窗体可以不是启动窗体（）a. 最后一个添加的窗体b. 在“工程属性”对话框中指定的窗体c. 第一个添加的窗体d. 启动VB时创建的第一个窗体16.如果要求图像框Image控件不要自动适应其中的图形大小，应（）a. 将控件的Stretche属性设为Trueb. 将控件的AutoSize属性设为Truec. 将控件的AutoSize属性设为Falsed. 将控件的Stretche属性设为False17.以下属于标签控件Appearance属性的属性值有：（）a. Trueb. Flatc. Falsed. 3D18.文本框控件的ScrollBar属性设置，可以有以下不同的值（）a. verticalb. Horizontalc. Noned. Both19.文本框控件的Enabled属性的作用，是用于决定其（）a. 在程序运行时是否能够可见b. 在程序运行时是否能够显示用户输出的数据c. 在程序运行时是否能够响应用户生成的事件d. 在程序运行时是否能够接收用户输入的数据20.标签控件的Alignment属性，用来设置标签文本的对齐方式，可以有以下不同的属性值（）a. 居中对齐b. 右对齐c. 低端对齐d. 左对其21.在VB程序设计中，如果仅仅需要让应用程序在窗体中显示文本信息，可以使用（Label）控件。

国家开放大学《VisualBasic程序设计》章节测试参考答案

国家开放大学《VisualBasic程序设计》章节测试参考答案


二、判断题（10 题，每题 3 分，共 30 分） 15.用 Dim 语句声明变量时，Visual Basic 系统不仅为变量分配相应数据类型的内 部空间，而且还为变量赋予所需的初值。（√） 16.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中 设置窗体的属性，预先应执行的操作是单击任一个控件。（×） 17.TextBox 与 Label 有许多共同点，它们都能显示和输入文字。（×） 18.文本框控件有 Caption 属性。（×） 19.Timer 控件只有一个事件，该事件的名称是 Timer。（√） 20.计时器开始计时后，每经过一段按照 Interval 属性设定时间间隔，会自动触发 一次 Timer 事件并且重新计时。（√） 21.VB 程序中通常不会产生错误提示的是编译错误。（×） 22.事件过程可以由某个用户事件触发执行，它不能被其他过程调用。（×） 23.只有控件才是 Visual Basic 中的对象，窗体只是为起“容器”作用而存在的。 （×） 24.把方法看做对象的动作，把事件看做对象的响应。（√）
B. Form1.Caption="FormTest" C. Form1.Width=4000 D. Form1.Visible=True 10.下列关于属性设置的叙述错误的是（ ）。 A. 控件具有什么属性是 VB 预先设计好的，用户不能改变 B. 控件的属性既可以在属性窗口中设置，也可以用程序代码设置 C. 控件具有什么属性是 VB 预先设计好的，用户可以改变 D. 控件的属性在属性窗口中设置后，还可以用程序代码为其设置新值 11.如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本 框的（ ）属性。 A. Char B. Caption C. PasswordChar D. Text 12.无论何种控件，共同具有的属性是（ ）。 A. Text B. Name C. ForeColor D. Caption 13.要在命令按钮上显示图形，应首先设置的属性是（ ）。 A. Enabled B. Icon C. Style D. Caption 14.将文本框的 ScrollBars 属性设置为非零值，却没有效果，原因是（ ）。 A. 文本框的 MultiLine 属性值为 True B. 文本框中没有内容 C. 文本框的 MultiLine 属性值为 False D. 文本框的 Locked 属性值为 True
选择题填空题练习集(附答案)

选择题填空题练习集(附答案)

说明本练习摘自全国计算机等级考试试卷，仅供复习参考。

用红色标记的选项为参考答案。

用蓝色标记的选项为不在这次的考试范围如果发现题目或答案有错，请发电子邮件知会老师，xkping@，谢谢。

第一部分（0609）一、单选题11．以下叙述正确的是（A）窗体的Name属性指定窗体的名称，用来标识一个窗体（B）窗体的Name属性值是显示在窗体标题栏中的文本（C）可以在运行期间改变窗体的Name属性的值（D）窗体的Name属性值可以空12．以下叙述中错误的是（A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件（B）保存Visual Basic程序时，应分别保存窗体文件及工程文件（C）Visual Basic应用程序只能以解释的方式执行（D）窗体的Name属性值可以可空13．设a = 2，b = 3，c = 4，下列表达式的值是Not a <= c Or 4 * c = b ^ 2 And b <> a + c（A）-1（B） 1（C）True（D）False14．设有发下声明的用户定义类型：Type Studentnumber As Stringname As Stringage As IntegerEnd Type则以下正确引用该类型成员的代码是（A） = "李明"（B）Dim s As Student : = "李明"（C）Dim s As Type Student : ="李明"（D）Dim s As Type : = "李明"15．设a = 5，b = 6，c = 7，d = 8，执行下列语句后，x的值为x = IIf((a > b) And (c >b), 10, 20)（A）10（B）20（C）True（D）False16．执行以下程序段后，变量c$的值为a$ = "Visual Basic Programming"b$ = "Quick"c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)（A）Visual BASIC Programming（B）Quick Basic Programming（C）QUICK Basic Programming（D）Quick BASIC Programming17．在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。