当前位置：文档之家 › 在Form1画1个Label1的标签数组,含3个标签控件,下标从0开始

在Form1画1个Label1的标签数组,含3个标签控件,下标从0开始

  • 格式：doc
  • 大小：52.50 KB
  • 文档页数：4

基础题(1)【考点分析】本题考点有：标签的Caption属性，控件数组的建立方法。

【解题思路】控件数组的建立方法有两种：一种在设计时建立，首先，在窗体上画出某控件，并进行属性设置。

然后选中该控件进行"复制"和"粘贴"操作，系统提示"是否建立控件数组"，选择是即可。

另外一种是运行时添加控件数组。

通过标签对象的Caption属性来设置标签显示内容。

【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件数组并设置相关属性，如图所示。

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

基础题(2)【考点分析】本题考点有：标签控件的Caption属性，MouseMove事件。

【解题思路】通过MouseMove事件中的X指定鼠标光标当前位置的横坐标，通过标签的Caption 属性设置初始内容为空，在程序运行过程中，利用该属性显示当前鼠标光标位置的横坐标值。

【操作步骤】步骤1：新建一个窗体，按照题目要求建立一个标签控件并设置相关属性，如图所示。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Caption = X '标签中显示当前鼠标光标位置的横坐标值End Sub步骤3：测试并运行程序，关闭程序后按题目要求存盘。

简答题(1【考点分析】本题考点有：文本框的Text属性，标签的Caption属性，命令按钮的Click事件，V al（）函数，自定义函数及调用，if语句及for语句。

【解题思路】通过Val（）函数得到输入N值，利用N与2相除求得余数是否为0来判断N是奇数还是偶数。

自定义函数f来计算N！，通过for循环调用函数f来求出题目要求的和。

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

步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。

参考答案（阴影部分是需要考生填入的内容）Private Sub Command1_Click()Dim sum As Longn = Val(Text1.Text) '将文本框中文本转换为数值sum = 0If n Mod 2 = 0 Then '判断奇数还是偶数m = n + 1Elsem = nEnd IfFor i = 1 To m Step 2sum = sum + f(i) '调用f来求得题目要求的和NextLabel2.Caption = sumEnd SubPrivate Function f(ByVal x As Integer) As Long '定义f，求N！y = 1For i = 1 To xy = y * iNextf = yEnd Function程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简答题(2)【考点分析】本题考点有：自定义数组及初始化，单选按钮控件数组，自定义函数及调用，if语句，for语句，IIf（）函数以及闰年如何判断。

【解题思路】首先判断年份是否为闰年，然后计算到要显示月历的月份之前共有多少天，再计算出要显示月历的月份的第1天是星期几，最后输出月历。

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

步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。

参考答案（阴影部分是需要考生填入的内容）Option Base 1 'month_days 数组下界为1Private Sub Command1_Click()Dim days%, month%, year%, day1_1%, n%Static month_days As Variantmonth_days = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)For k = 0 To 6If Option1(k).Value = True Thenday1_1 = kEnd IfNext kdays = 0month = Text2year = Text1month_days(2) = IIf(leap_year(year), 29, 28) '调用leap_year函数判断闰年'IIF( 逻辑表达式, 表达式1 , 表达式2 ),为真，返回表达式1 ，否则返回表达式2'======== 计算到要显示月历的月份之前共有多少天=========For k = 1 To month - 1days = days + month_days(k)Next k'======== 计算要显示月历的月份的第1天是星期几=========n = (days Mod 7 + day1_1) Mod 7'================ 输出月历==================Picture1.ClsPicture1.Print " SUN MON TUE WED THU FRI SAT"For k = 1 To month_days(month)Picture1.Print Tab(5 * n + 1); k;n = n + 1If n = 7 ThenPicture1.Printn = 0End IfNext kEnd Sub'================ 判断闰年==================Private Function leap_year(year As Integer) As Booleanleap_year = (year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0) End Function程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题【考点分析】本题考点有：用户自定义数据类型，自定义过程及调用，IIf（）函数以及文件操作相关语句Open、Close、Input等。

【解题思路】Sub putdata过程用来显示记录，Sub SetEnabled过程用来控制命令按钮可用或不可用。

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

步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。

参考答案（阴影部分是需要考生填入的内容）Private Type rec '自定义数据类型name As String * 3Math As IntegerChinese As IntegerEnglish As IntegerEnd TypeDim a(20) As rec, num As Integer, n As IntegerPrivate Sub readdata()Open App.Path & "\in5.txt" For Input As #1 '打开文件k = 1Do While Not EOF(1) 'eof()函数为判断是否到文件尾函数Input #1, a(k).name, a(k).Math, a(k).Chinese, a(k).English '文件记录读入数组a （）k = k + 1LoopClose #1 '关闭文件num = 20 '记录条数End SubPrivate Sub Command1_Click()n = 1putdata n '调用putdata过程End SubPrivate Sub Command2_Click()n = n + 1putdata n '调用putdata过程End SubPrivate Sub Command3_Click()n = n - 1putdata n '调用putdata过程End SubPrivate Sub Command4_Click()n = numputdata n '调用putdata过程End SubPrivate Sub Form_Load()readdataCommand1_ClickEnd SubPrivate Sub putdata(k As Integer)Label1.Caption = "第" & k & "条记录"Text1 = a(k).nameText2 = a(k).MathText3 = a(k).ChineseText4 = a(k).EnglishText5 = a(k).Math + a(k).Chinese + a(k).EnglishSetEnabled (k)End SubPrivate Sub SetEnabled(m As Integer)Command1.Enabled = IIf(m = 1, False, True)Command2.Enabled = IIf(m = num, False, True)Command3.Enabled = IIf(m = 1, False, True)Command4.Enabled = IIf(m = num, False, True) End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

合集下载

全国计算机等级考试二级VB模拟试题1

全国计算机等级考试二级VB模拟试题1

⼀、选择题（每题2分，共计70分）1.数据的存储结构是指____。

A、存储在外存中的数据B、数据所占的存储空间C、数据在计算机中的顺序存储⽅式D、数据的逻辑结构在计算机中的表⽰A B C D2.下列关于栈的描述中错误的是：____。

A、栈是先进后出的线性表B、栈只能顺序存储C、栈具有记忆作⽤D、对栈的插⼊与删除操作中，不需要改变栈底指针A B C D3.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的⽐较次数中正确的是____。

A、冒泡排序为n/2B、冒泡排序为nC、快速排序为nD、快速排序为n(n-1)/2A B C D4.对长度为n的线性表进⾏顺序查找，在最坏情况下所需要的⽐较次数为____。

A、log2nB、n/2C、nD、n+1A B C D5.下列对于线性链表的描述中正确的是____。

A、存储空间不⼀定是连续，且各元素的存储顺序是任意的B、存储空间不⼀定是连续，且前件元素⼀定存储在后件元素的前⾯C、存储空间必须连续，且前件元素⼀定存储在后件元素的前⾯D、存储空间必须连续，且各元素的存储顺序是任意的A B C D6.下列对于软件测试的描述中正确的是____。

A、软件测试的⽬的是证明程序是否正确B、软件测试的⽬的是使程序运⾏结果正确C、软件测试的⽬的是尽可能多地发现程序中的错误D、软件测试的⽬的是使程序符合结构化原则A B C D7.为了使模块尽可能独⽴，要求____。

A、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量强B、模块的内聚程度要尽量⾼，且各模块间的耦合程度要尽量弱C、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D、模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强A B C D8.下列描述中正确的是____。

A、程序就是软件B、软件开发不受计算机系统的限制C、软件既是逻辑实体，⼜是物理实体D、软件是程序、数据与相关⽂档的集合A B C D9.数据独⽴性是数据技术的重要特点之⼀。

江苏省计算机二级考试VB程序设计复习题

江苏省计算机二级考试VB程序设计复习题

江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。

2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。

3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。

4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。

第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。

2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。

3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。

4、设置控件背景颜色的属性名称是_ backcolor __。

5、所有控件都具有的共同属性是__ name __属性。

6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。

7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。

8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。

9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。

第三章1、一般可以使用____ Const ______关键字声明常量。

2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。

3、变量的声明分为两种方法：_隐式声明__和__显示声明__。

计算机二级VB考试题及答案

计算机二级VB考试题及答案


8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4,5)
For c=1 To Ubound(a)
a(c)=a(c)+c-1
A.标签的移动方向为自右向左
B.单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动
C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D.标签按指定的时间时隔移动
12.规范地说，VB是一种(A)的开发工具(单)
A.面向对象
B.面向用户
End If
End Sub
Private Sub GetArray(b( ) As Integer,n As Integer)
Dim c(10) As Integer
j=0
For t=1 To n
b(t)=Rnd*100
If b(t)/2=b(t)2 Then
C.选择"视图"下拉菜单的"属性窗口"项
D.双击窗体中的某一对象
15.Visual Basic程序中分隔各语句的字符是(B)(单)
A.′
B.:
C.
D._
16.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"VB Test"的语句为(B)(单)
Next c
运行以上程序后，x的值是(A)(单)
A.6
B.7
C.8
D.9
form中数组的写法

form中数组的写法

form中数组的写法在web开发中，form表单可以用来提交数据到后端处理，其中数组类型的数据在一些场景中十分常见。

本文将为大家介绍如何在form表单中正确地传递数组数据。

1. 使用表单元素的name属性来表示数组在传递数据时，我们需要指定数据的名称，以便后端能够正确地处理它。

对于数组类型的数据，我们在表单元素的name属性中添加[]来表示这是一个数组。

比如：```<input type="text" name="myArray[]" />```这样，当多个元素的name属性都是myArray[]时，它们就会被组合成一个数组类型的数据。

2. 通过POST方法提交表单数据在使用form表单提交数据时，有两种常见的请求方法：GET和POST。

对于数组类型的数据，我们需要使用POST方法提交数据。

因为GET方法会将数据追加到URL的末尾，而URL中不能包含一些特殊字符，比如[]。

而POST方法将数据作为请求的一部分发送到服务器端，不存在这个限制。

在form标签中指定method为POST即可：```<form method="POST">```3. 通过循环生成多个表单元素在某些场景中，我们可能需要一次性提交多个数组类型的数据。

这时，我们可以通过循环来生成多个表单元素。

比如：```<?php$myArray = array('apple', 'banana', 'orange');foreach ($myArray as $fruit) {echo '<input type="text" name="myArray[]" value="' . $fruit . '" />';}>```这样生成的表单元素的name属性都是myArray[]，它们就会被组合成一个名为myArray的数组类型的数据。