2009年1月VB_操作题.docVIP

程序完善题： 1. 打开考生目录VB\406文件夹中的文件：d1.vbp 进行以下操作并保存！在VB代码窗口指定位置修改完善程序代码，实现计算从5到25的连乘积（即求5*6*…*25的积）。 Private Sub Command1_Click() Dim I As Integer Dim S As Double 删除1，填入正确的代码 S = 1 删除2，填入正确的代码 For I = 5 to 25 Step 1 S = S * I Next I Print 求5*6*…*25的积：; S End Sub 2.打开考生目录VB\407文件夹中的文件：d2.vbp 进行以下操作并保存！在VB代码窗口指定位置修改完善程序代码，实现计算100到200之间能被3整除的数的个数。 Private Sub Command1_Click() Dim I As Integer Dim S As Integer 删除1，填入正确的代码 S = 0 For I = 100 To 200 删除2，填入正确的代码 If I Mod 3 = 0 Then S=s+1 End If Next Print 100到200之间能被3整除的数的个数是：; S End Sub 3.打开考生目录VB\408文件夹中的文件：d3.vbp 进行以下操作并保存！在VB代码窗口指定位置修改完善程序代码，实现计算10到200之间所有奇数的和。 Private Sub Command1_Click() Dim I As Integer Dim S As Integer 删除1，填入正确的代码 S = 0 For I = 10 To 200 Step 1 删除2，填入正确的代码 If Int(I / 2) I / 2 Then S=s+i End If Next Print 10到200之间所有的奇数的和是：; S End Sub 4.打开考生目录VB\409文件夹中的文件：d4.vbp 进行以下操作并保存！在VB代码窗口指定位置修改完善程序代码，实现计算1到100之间，所有能被3整除数的积。 Private Sub Command1_Click() Dim I As Integer Dim S As Double S = 1 删除1，填入正确的代码 For I = 3 To 100 Step 3 删除2，填入正确的代码 S=s*i Next Print 计算1到100之间,所有能被3整除数的积：; S End Sub 5.打开考生目录VB\410文件夹中的文件：d5.vbp 进行以下操作并保存！ 在VB代码窗口指定位置修改完善程序代码，实现计算3到100之间(包括3)所有能被3整除的数的个数。 Private Sub Command1_Click() Dim I As Integer Dim S As Integer S = 0 删除1，填入正确的代码 For I = 3 To 100 Step 3 删除2，填入正确的代码 S=s+1 Next Print 3到100之间(包括3)所有能被3整除的数的个数：; S End Sub 程序编写： 1.打开考生目录VB\411文件夹中的文件：k1.vbp 进行以下操作并保存！ 在窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：编程实现求下列分段函数的值。 例：在text1文本框中输入大于0的正整数x，计算当x3时在text2文本框中输出8，否则text2文本框中输出x与3的积。 测试数据 在text1文本框中输入2，text2文本框输出 8； 在text1文本框中输入5，text2文本框输出 15。 在text1文本框中输入6，text2文本框输出 18。 答案: 答案二: 2.打开考生目录VB\412文件夹中的文件：k2.vbp 进行以下操作并保存！ 在窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 求35以内与24匹配的勾股数。 例：在Text1输入小于35的正整数a、Text2输入小于35的正整数b，判断242+a2=b2。并在Text3文本框中显示判断结果，即有等式成立则在Text3文本框中输出成立，否则输出重试。 测试数据 在text1文本框中输入7，在text2文本框中输入25，text3文本框输出 成立； 在text1文本