2011年1月选修1《算法与程序设计》模块上机题.doc

------------------------------------第1套-------------------------------------- 第11题: 编写程序： 打开Z:\VB\113文件夹中的文件：k3.vbp 进行以下操作并保存。 在窗体Form1.frm的Command1_Click事件中编写代码，使之能够实现如下功能： 在Text1文本框中输入整数m、Text2文本框中输入整数n，如果m大于n，则在Text3文本框中输出m减去n的值，否则在text3文本框中输出n减去m的值。 测试数据 在Text1文本框中输入9，Text2文本框中输入7，则Text3文本框中输出：2。 在Text1文本框中输入4，Text2文本框中输入8，则Text3文本框中输出：4。 第12题: 界面设计： 新建一个VB工程，工程文件名称为：工程1.vbp,并添加一个窗体文件：Form1.frm，保存在Z:\VB\111文件夹下。按下表的要求添加控件，并设置其属性，操作后保存。 第13题: 程序补充： 打开Z:\VB\112文件夹中的文件：gc03.vbp 进行以下操作并保存。 在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被11整除的个数。 Private Sub Command1_Click() Dim I As Integer Dim n As Double n = 0 删除1，填入正确的代码 For I = 1 To 1 Step 1 删除2，填入正确的代码 If 2 Mod 11 = 0 Then n = n + 1 Next I Print 1到500之间能被11整除的个数为：; n End Sub ------------------------------------第2套-------------------------------------- 第11题: 界面设计： 新建一个VB工程，工程文件名称为：工程1.vbp,并添加一个窗体文件：Form1.frm，保存在Z:\VB\117文件夹下。按下表的要求添加控件，并设置其属性，操作后保存。 第12题: 编写程序： 打开Z:\VB\119文件夹中的文件：k5.vbp 进行以下操作并保存。 在窗体Form1.frm的Command1_Click事件中编写代码，使之能够实现如下功能：在Text1文本框中输入距离s米、Text2文本框中输入时间t秒, 计算小车速度，判断车速是否超过22米/秒(约80公里/小时)，如果超过，则在Text3文本框中输出超速危险，否则在Text3文本框中输出没有超速。 测试数据 在Text1文本框中输入70，Text2文本框中输入3，则Text3文本框中输出：超速危险。 在Text1文本框中输入30，Text2文本框中输入2，则Text3文本框中输出：没有超速。 第13题: 程序补充： 打开Z:\VB\118文件夹中的文件：gc05.vbp 进行以下操作并保存。 在VB代码窗口指定位置修改完善程序代码，实现求1到100之间能被13整除的整数之和。 Private Sub Command1_Click() Dim I As Integer Dim s As Double 删除1，填入正确的代码 s = 1 For I = 1 To 100 Step 1 删除2，填入正确的代码 If I Mod 13 = 0 Then s = 2+I Next I Print 1到100之间能被13整除的整数之和为：; s End Sub ------------------------------------第3套-------------------------------------- 第11题: 程序补充： 打开Z:\VB\115文件夹中的文件：gc04.vbp 进行以下操作并保存。 在VB代码窗口指定位置修改完善程序代码，实现求1到50之间能被4整除的整数之和。 第12题: 界面设计： 新建一个VB工程，工程文件名称为：工程1.vbp,并添加一个窗体文件：Form1.frm，保存在Z:\VB\114文件夹下。按下表的要求添加控件，并设置其属性，操作后保存。 第13题: 编写程序： 打开Z:\VB\116文件夹中的文件：k4.vbp进行以下操作并保存。 在窗体Form1.frm的Command1_Click事件中编写代码，使之能够实现如下功能： 在Text1文本框中输入距离s千米、Text2文本框中输入速度v千米/小时，计算货车行驶时间，判断行驶时间是否超过4小时，