江财数据库应用 .pptVIP

数据库应用;程序设计;Public Sub ShiLi01() Dim x As Double, y As Double Dim z As Double x = Val(InputBox(请输入X)) y = Val(InputBox(请输入Y)) If x y Then z = x + y ElseIf x = y Then z = x * y * Sgn(y) ElseIf x y And y 0 Then z = x / y Else MsgBox (无指定值！) End End If Debug.Print Z = , z End Sub;(2) 编写程序，求一元二次方程Ax2+Bx+C = 0的解，输入为系数A，B和C。;(3) 用整数0～6依次表示星期日、星期一、……、星期六，编程实现下列功能：用键盘输入一个整数，在显示器上输出对应的中文表示星期几，如果键入的整数范围不在-1到6之内，则显示“输入数据错误”，返回要求再次键入正确数字。当键入-1时，程序终止。 ;(4) 乘火车旅行的行李收费标准如下：成年人可免费携带重量20公斤的行李，未成年人可免费携带10公斤的行李，超出这个重量，火车站将加收费用，收费标准是每公斤每百公里收费为0.20元，不足百公里按百公里记。试编程按不同类型的人和行李重量来记收费用。;(5) 编写程序完成求和S=1+(1+2)+(1+2+3)+…+(1+2+…+10)。如果求S=1! + 2! + 3! + … + 10!，试编写程序并比较其同异。;(5) 编写程序完成求和S=1+(1+2)+(1+2+3)+…+(1+2+…+10)。如果求S=1! + 2! + 3! + … + 10!，试编写程序并比较其同异。;(6) 编程求100到200之间即能被3整除又能被5整除的正整数的个数，并显示这些数。;(7) 编程完成下列图形的打印。其中第一个*所在位置为第20列。;(7) 编程完成下列图形的打印。其中第一个*所在位置为第20列。;(7) 编程完成下列图形的打印。其中第一个*所在位置为第20列。;(7) 编程完成下列图形的打印。其中第一个*所在位置为第20列。;(8) 使用数组输入10个评委的评分，要求去除最高分、最低分，求参评者的平均得分。;(9) 编程求2到100间的所有素数，并求它们的和。;(10) 输出所有的水仙花数。所谓的水仙花数，是1个3位数，其值等于该数中各位数字的立方和，例如： 。;(10) 输出所有的水仙花数。所谓的水仙花数，是1个3位数，其值等于该数中各位数字的立方和，例如： 。;(11) ??一个分数数列 ，求出这个数列的前20项之和。;(11) 有一个分数数列 ，求出这个数列的前20项之和。;(11) 有一个分数数列 ，求出这个数列的前20项之和。;(12)已知二年期人民币整存整取年利率为2.25%，王大妈选择二年期整存整取，存款金额10000元，她希望有1000元以上的净利息。假设国家对最后的利息征20%所得税，故至少要税前为1250元利息，才有1000元的净利息。请你编程帮王大妈算一算，要存几年才能达到她的目标。;(13)编写一个过程Swap，实现两个数据交换功能。调用该过程求随机生成的60-100间30个数中最大数和最小数。;(14) 输入两个正整数m和n，求其最大公约数和最小公倍数。;(15)有M个人围成一圈，每人—个编号（1，2，3，…，M），从第—个人数起，报到N时这个人就出圈，再继续数，报到第N个又出圈，出圈人的位置不再数，直到只剩下一个人为止，排出出圈人的顺序。;程序设计;Public Sub … ……… ……… ……… ……… ……… ……… ……… ……… ……… ………End Sub;Public Sub … ……… ………