2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为Sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程

(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为Sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程

admin2015-06-30  47
问题  (1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为Sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
    要求：
    请勿改动程序中的其他部分，只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。最后把修改后的文件按原文件名存盘。
    说明：
    数组arr中共有40个元素，所谓“数组arr中每个元素与其下标相除所得的和”，指的是：
    a11r(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40
    (2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2，一个标签控件，其名称为Label1，一个计时器控件，其名称为Timer1，如图1所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interva1属性设置为50，Enabled属性设置为True。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。

    要求：
    去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案（1）【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Function Fun(a() As Single) As Single ’需要考生编写的内容 End Function Private Sub Command1_Click() Dim arr Dim arr2(40) As Single arr = Array(12.5, 65.4, 56, 73, 46.23, 58.25, 83.49, 96, 27.3, 36.78, _ 29.26, 89.4, 34.7, 45.4, 56.9, 67.4, 78, 98, 87.5, 76.8, _ 34.6, 55.8, 64.7, 43.7, 99.4, 84.7, 66.2, 23.9, 55.5, 44.1, _ 33.2, 43.5, 41.2, 28.3, 78.6, 98.3, 56.1, 73.6, 49.3, 48.3) For i = 1 To UBound(arr) arr2(i) = arr(i) Next i r = Fun(arr2()) Text1.Text = Str(r) SaveData End Sub Sub SaveData() Open App.Path & "\out3.txt" For Output As #1 Print #1, Text1.Text Close 1 End Sub 程序结束 参考答案 Sum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = Sum 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_Load() Command1.Caption = "开始" Command2.Caption = "停止" Timer1.Interval = 50 Timer1.Enabled = False Label1.Caption = "热烈欢迎" Label1.AutoSize = True Label1.FontSize = 16 Label1.FontBold = True End Sub Private Sub Command1_Click() Command1.Caption = "继续" Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = True End Sub Private Sub Timer1_Timer() If Label1.Left < Form1.Width Then Label1.Left = Label1.Left + 20 Else Label1.Left = 0 End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/hVQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)