算法与程序设计模块(操作题)1.在VB代码窗口指定位置修改完善程序代码，实现计算从5到25的连乘积（即求5*6*…*25的积）。S=1fori=5to25step1s=s*i2、在VB代码窗口指定位置修改完善程序代码，实现计算100到200之间能被3整除的数的个数。S=0fori=100to200step3s=s+13、在VB代码窗口指定位置修改完善程序代码，实现计算10到200之间所有奇数的和。S=0fori=10to200step2s=s+i4、在VB代码窗口指定位置修改完善程序代码，实现计算1到100之间，所有能被3整除数的积。S=1fori=1to100step3s=s*i5、在VB代码窗口指定位置修改完善程序代码，实现计算3到100之间（包括3）所有能被3整除的数的个数。S=0fori=3to100step3s=s+16、在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：编程实现求下列分段函数的值。例：在text1文本框中输入大于0的正整数x，计算当x<3时在text2文本框中输出"8"，否则text2文本框中输出x与3的积x=val(text1.text)y=val(text2.text)ifx<3thentext3.text=”8”elsetext3.text=x*3endif【正确】7、在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：求35以内与24匹配的勾股数。例：在Text1输入小于35的正整数a、Text2输入小于35的正整数b，判断242+a2=b2。并在Text3文本框中显示判断结果，即有等式成立则在Text3文本框中输出"成立"，否则输出"重试"。a=val(text1.text)b=val(text2.text)if24*24+a*a=b*bthentext3.text=”成立”elsetext3.text=”重试”endif【正确】8、在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：判断一元二次方程ax2+bx+7=0有无相等实根。若有相等实根,则输出此实根,否则输出"无"。a=val(text1.text)b=val(text2.text)c=7d=b*b-4*a*cifd=0thentext3.text=(-b)/(2*a)elsetext3.text=”无”endif【正确】例：在Text1输入整数a、Text2输入整数b，如果b2-4ac=0,则在Text3文本框中输出实根，否则在Text3文本框中输出"无"。a=val(text1.text)b=val(text2.text)ifb*b-4*a*c>=0thentext3.text=(-b)/(2*a)elsetext3.text=”无”endsub【正确】9、打开Z:\"VB\414"文件夹中的文件："k4.vbp"进行以下操作并保存！在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：已知三角形一条边边长为23，输入另外两条边的边长a、b，判断a、b和23能否构成一个三角形。例：在Text1输入a、Text2输入b，如果a+b>23、a+23>b、b+23>a，则在Text3文本框中输出"是"，否则在Text3文本框中输出"否"。a=val(text1.text)b=val(text2.text)ifa+b>23anda+23>bandb+23>athentext3.text=”是”elsetext3.text=”否”endif【正确】10、开Z:\"VB\415"文件夹中的文件："k5.vbp"进行以下操作并保存！在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：在Text1输入一个数，判断能否被7整除，并在Text2输出结果"能"或”不能”。a=val(text1.text)b=val(text2.text)if7mod0thentext3.text=”能”elsetext3.text=”不能”endifendsub【正确】11、在VB代码窗口指定位置修改完善程序代码实现，求1×2×3×4×……×10的值。S=1if1to10step1s=s*i【正确】12、在窗体"Fo