《vb机试题16》由会员分享，可在线阅读，更多相关《vb机试题16（8页珍藏版）》请在金锄头文库上搜索。
1、vbvb 机试题机试题 1616(1) 【解题思路】标签的 Name、Caption 属性设置标签的名称和标题，AutoSize 属性设置控件是否能够自动调整大小以显示所有的内容，BorderStyle 属性使标签带有边框，FontSize 属性设置字体的大小。【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.56。表 3.56步骤 2：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第 17 套第一大题的第二小题来进行同类知识点练习。(2) 【解题思路】TabIndex 属性是当前窗体上控件的 Tab 键切换顺序：运行时按 Tab 键会按照 Ta
2、bIndex 值的从小到大的顺序进行切换。将滚动条的 TabIndex 属性设置为 0，可以实现程序开始运行时，焦点在滚动条上。滚动条的最大值由 Max 属性设置，最小值由 Min 属性设置，滚动条的当前值由 Value 属性设置；当滚动框的位置改变时，触发 Change 事件。通过 Text1.Text HScroll1.Value 语句可以实现在文本框中显示滚动框的当前位置。【操作步骤】步骤 1：新建一个窗体，按照题目要求建立滚动条控件并设置其属性。步骤 2：按照步骤 1 建立其他控件并设置相关属性，程序中用到的控件及属性见表 3.57。表 3.57步骤 3：编写程序代码。参考答案Priv
3、ate Sub Form_Activate()HScroll1.SetFocusEnd SubPrivate Sub HScroll1_Change()Text1.Text = HScroll1.ValueEnd Sub步骤 4：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第 41 套第一大题的第一小题来进行同类知识点练习。(1) 【解题思路】通过形状控件的 Move 方法，实现形状的移动，通过 Shape1.Top 值和 Line1.Y1 值比较来判定圆形是否越过上界，通过 Shape1.Top Shape1.Height 值和 Line2.Y1 值比较来判定圆形是否越过下
4、界。【操作步骤】步骤 1：打开本题工程文件，设置形状控件的 Top 属性为360，FillStyle 属性为 0，FillColor 属性为 Text1.TextClose #1End Sub程序结束参考答案Private Sub Command2_Click()考生编写Dim k As LongDim m As LongDim q As LongDim p As LongDim r As LongDim n As LongFor k = 1 To 100If a(k) Mod 2 = 0 Thenm = m + a(k)q = q + 1Elsen = n + a(k)p = p + 1En
5、d IfNext kr = Int(m + n) / (p + q) + 0.5)m = Int(m / q + 0.5)n = Int(n / p + 0.5)Select Case Combo1.TextCase “所有偶数“Text1 = mCase “所有奇数“Text1 = nCase “所有数“Text1 = rEnd SelectEnd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第 22 套第三大题来进行同类知识点的练习。【解题思路】数组是一组具有相同类型和名称的变量的集合。这些变量称为数组的元素，每个数组元素都有一个编号，这个编号叫做下标，
6、我们可以通过下标来区别这些元素。数组元素的个数有时也被称为数组的长度。数组的长度是在定义时就确定的，在程序运行过程中是固定不变的。数组的定义格式为： Dim 数组名(下界 To上界)As 类型名其中，数组的下界和类型是可选的。所谓下界和上界，就是数组下标的最小值和最大值。默认下界时，VB 默认的下界是 0，语句Option Base 1 的作用是限定数组下标的下限默认为 1。在本题中，先定义一个数组，然后以输入方式打开文件 in5.txt，并在一个嵌套的 For 循环中用 Input #将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的 For 循环将数组 Mat中的数据在窗体上
7、按 5 行、5 列的矩阵形式显示出来，接着再用一个 For 循环将数组 Mat 中第 1 维下标分别为 2 和 4 的元素按第 2 维下标一致的对应交换值。最后将交换后的数组 Mat 中的数据再按 5行、5 列的矩阵形式在窗体上显示出来。【操作步骤】步骤 1：打开本题工程文件。步骤 2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Form Click()Const N = 5Const M = 5 Dim ?Dim i, j, t Open App.Path Mat(i, j)；Next jPrintNext iFor i = 1 To Nt = Mat(
8、i, 2)Mat(i, 2) = Mat(i, 4) ?Next iPrintPrint “交换第二列和第四列后的矩阵为：“PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); Mat(i, j)；Next jPrintNext iEnd Sub程序结束参考答案第 1 个？处填入：Mat(N, M) As Integer第 2 个？处填入：For Input第 3 个？处填入：Input #1, Mat(i, j)第 4 个？处填入：Mat(i, 4) t步骤 3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第 38 套第三大题来进行同类知识点的练习。
