计算机上机答案1-5.pdfVIP

第一套： (1) 【解题思路】窗体对象和命令按钮控件的标题均由其 Caption属性来设置， Visible 属性用 于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的 Font属性来设置标题的字 体、字号和字型。 【操作步骤】 步骤 1：新建一个窗体， 按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。 程序中用到的属性见表 3.25 。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】标签的 BorderStyle 属性用于设置标签的边框样式，值为 0表示无边框，值 为 1表示有固定边框。要使标签位于窗体的右上角，其 Top 属性值应为 0, Left 属性值应为窗体的 内部有效宽度减去标签宽度后的值。 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。 程序中用到的控件及属性见表 3.26 。 表 3.26 控件 标签 属性 Name BorderStyle 设置值 Label1 1 步骤 2：编写程序代码。 参考答案 Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.Width End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (1) 【解题思路】 Rnd() 函数用于产生一个小于 1但大于或等于 0的随机数，其语法格式为： Rnd[(number) ] 可选的 number参数是 Single 或任何有效的数值表达式。 为使每次程序运行时 ，得到不同的 随机数数列， 在使用 Rnd() 函数产生 随机数前应用 Randomize语句对随机数生成器进行初始化， 该生成器能根据系统计时器得到新的种子值。 为了 生成某个范围内的随机整数，可使用以下公式： Int((upperbound － lowerbound ＋ 1) * Rnd ＋ lowerbound) 。 其中， upperbound 是随机数范围的上限， lowerbound 则是随机数范围的下限。 本题程序用变量 Min 记录最小数，最初把数组的第一个元素的值赋给 Min ，然后通过 For循 环语句将其后的元素依次与之比较，如果其值小于 Min ，则将其赋值给 Min ，依次类推，最终 Min 的值就是数组各元素中的最小值。 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1 Click() Dim arrN(30) As Integer Dim Min As Integer Randomize For i = 1 To 30 arrN(i) = Int(Rnd * ？) Next i ? = arrN(1) For i = 2 To 30 If ? Then Min = arrN(i) End If Next i Print Min End Sub 程序结束 参考答案 第 1个