print str(@j)+'是第 '+str(@n,2)+ 个素数！'
endend
set @j=@j+1 --循环数数。
endprint '结束！'
2.求三角形面积：用set或select语句输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并输出三角形的面积。
构成三角形的条件是：任意两边之和大于第三边。面积公式为area=sqrt(s*(s-a)*(s-b)*(s-c))，其中s=(a+b+c)/2，a、b、c为三条边的长度。
3.判断闰年：创建一个存储过程，输入一个年份，判断其是否为闰年并使用输出参数将判断结果输出。注：闰年的条件为能被4整除但不能被100整除，或能被400整除。
分情况：1. 计算分段函数：
当02.计算分段函数： 当x≠0时， y=sin(x)+x*x+1; 当x=0时， y=cox(x)-3*x；假设自变量x的值为5，要求：
用set语句或select语句给自变量x赋值，请编写程序。
3.计算网费：编一程序输入上网时间并计算上网费用，计算方法如下：
当上网时间<10小时，基数30元；当上网时间10～50小时，每小时2.5元；当上网时间≥50小时，每小时2元。同时为了鼓励上网，每月收费最多不超过150元。
提示：首先使用case函数根据三个时间段计算出费用，然后用if语句对超过150元的费用设置为150。
4.公用**收费标准如下：通话时间在3分钟之内（包括3分钟），收费0.
5元；3分钟以上，则每超过1分钟加收0.15元。编写一段程序，计算某人通话s分钟，应缴多少**费。
5.火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.
40元收费。输入行李重量w公斤，计算出应付多少运费。注意：
先使用set语句或select语句给变量赋初值。
6.在购买某物品时，若标名的价钱x在下述范围内，所付钱y按对应折扣支付：当x<1000时， y=x; 当1000≤x<2000时， y=0.
9*x; 当2000≤x<3000时， y=0.8*x; 当3000≤时， y=0.7*x；注：
先使用set语句或select语句给自变量x赋初值。
7.涨工资：若基本工资大于800元，涨原工资的20%；若小于800元大于400元，涨原工资的15%；若小于400元，涨原工资的10%。
编程实现：使用set语句或select语句输入基本工资，计算涨工资后的工资数。
8. 用set语句或select语句输入一个成绩等级（a～e之一），用print语句和case函数输出相应分数段。分数段与等级的关系：
a: [90,100]; b: [80, 90）; c:
[70，80）; d: [60，70）; e: 60以下。
例如：运行程序时，若输入a，则输出：你的成绩在[90，100]之间。
create proc 确定分数段。
j char(1)='a'
as*用set语句或select语句输入一个成绩等级（a～e之一），用print语句和case函数输出相应分数段。分数段与等级的关系：
a: [90,100] b: [80, 90）c:[70，80） d:[60，70）e: 60以下。
例如：运行程序时，若输入a，则输出：你的成绩在[90，100]之间。*/
declare @fs varchar(50)
select @fs=
casewhen @j='a' then '那么，你的成绩在[90，100]之间'
when @j='b' then '那么，你的成绩在[80，90)之间'
when @j='c' then '那么，你的成绩在[70，80)之间'
when @j='d' then '那么，你的成绩在[60，70)之间'
else '那么，你的成绩在60以下'
endprint '如果是'+@j+@fs
循环类：1.计算10！
2.求自然数1～100之间偶数之和。
3.求自然数1～100之间奇数之和。
4.打印奇数：编写程序，用print语句显示1～50之间的奇数。
5.打印偶数：编写程序，用print语句显示1～50之间的偶数。
6.计算1！+2！+…20！
7.利用存储过程求n阶乘：创建一个存储过程，输入一个自然数，计算它的阶乘并使用输出参数将其输出。
8.使用set语句输入一个整数n，判断其能否同时被3和5整除。使用print语句输出判断结果。
9.编程计算从200到1000之间的所有7的倍数之和。
10.编程计算从10到100之间的所有8的倍数之和11.计算立方和：
计算1^3+2^3+3^3+…+100^3. 注意：1^3表示1的3次方，2^3表示2的3次方，…，100^3表示100的3次方。
12.编写程序计算多项式：1^1+2^2+3^3+…+10^10. 注意：1^1表示1的1次方， 2^2表示2的2次方，…,10^10表示10的10次方。
13. 分数序列求和：有一个分数序列，求出这个序列的前20项之和。2/1, 3/2, 5/3, 8/5, 13/8, 21/13, …提示：后一项是前一项的倒数加1。
14.利用循环结构求s的值，s=1*2*3+2*3*4+…+i*(i+1)*(i+2)+…15*16*17的值。
15. 求s=a+aa+aaa+…+aaa…aaa(n个a)：其中a和n的值由用户使用set或select语句自己输入。
例如，当a=3,n=4时，s=3+33+333+3333。
*重数求和问题：求s=a+aa+aaa+…+aaa…aaa(n个a) *
declare @a int,@n int,@i int,@s int,@z int --定义变量。
select @a=8,@n=7设置参数。
select @i=0,@s=0,@z=0 --计数，生成数，累加和初始化。
while @i<@n根据参数确定循环次数。
beginset @i=@i+1数数。
set @s=@s*10+@a根据参数产生重复数字。
set @z=@z+@s计算累加和。
print str(@s)+str(@z,20) -显示当前值。
end16. 折纸成山：设纸的厚度为0.
5毫米，将纸对折，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。 17.棋盘上放麦粒：
在国际象棋棋盘的64个格上依次放入小麦1粒、2粒、4粒、8粒…，求按此规律放满64个格需要多少粒小麦。
18.编写程序，输出由这六个数字组成的所有可能的两位数，并统计它们的个数。
*编写程序组数*/
declare @i int,@j int,@n int --定义变量。
select @i=0,@j=0,@n=0计数器初始化。
while @i<6十位数的循环。
beginset @i=@i+1十位数计数，从1到6
while @j<6个位数的循环
begin
set @j=@j+1 --从1到6
set @n=@n+1 --统计数字的个数。
print '第 '+str(@n,3)+'个数是： 'str(@i,1)+str(@j,1)
endset @j=0内循环结束后，将计数器清零，以产生下一组数据。
endprint '它们的个数为：'+str(@n,3)
19. 显示30个随机数：利用随机函数rand和函数floor，产生30个1到20之间的随机整数，使用while语句显示这30个随机数。
create proc 产生随机数。
as*显示30个随机数：利用随机函数rand和函数floor，产生30个1到20之间的随机整数，使用while语句显示这30个随机数。*/
declare @x int,@i int
set @i=0
while @i<30
beginset @i=@i+1
set @x=floor(rand()*20)+1
print '第'+str(@i,3)+'数是： 'str(@x,3)end
2019编程题 要求
vb编程练习题。说明 做练习时，工程文件 标准模块及main过程可以自己创建，本练习只提供一个样例。第一题。问题描述 请打开指定文件夹下的工程文件并在标准模块module1中的main过程中实现如下功能 在给定的数据序列中，统计指定的关键字在序列 现的次数，并将结果写入输出文件中。说明 1.输出语句...
2023年编程题复习
复习题1 现有一个文本文件中包含一个班级的若干条学生信息，每条学生信息占一行。单个学生信息从左到右的排列顺序为 学号姓名年龄成绩1成绩2成绩3按要求完成如下操作 1 定义一个cperson类，该类包含姓名属性 年龄。类定义如下 classcperson 请根据需要增加成员函数。2 以cperson类...
SQL编程题
select from student 添加成绩。insert into score values s271811 s25303 80,58 insert into score values s271813 s25302 50,90 insert into score values s271816 ...