资源描述
Access数据库=题号:12003设计程序,对用户输入的任意两个整数,按升序输出。将任意两个数按指定顺序排列是必须掌握的基本算法,基本要领就是借助第三个变量将x变量和y变量进行交换。代码为:temp=x:x=y:y=temp操作提示:新建一个窗体swap如下图所示控件名称标题或功能Label1请输入x的值Label3请输入y的值Label5x=Label6y=Text0x:格式:常规数字Text2y:格式:常规数字Command4交换代码写在command4的单击事件过程中,执行效果如图所示。Private Sub Command4_Click()x = Text0.Valuey = Text2.ValueIf x y Thentemp = x: x = y: y = tempEnd IfLabel5.Caption = x= & xLabel6.Caption = y= & yEnd Sub题号:12006编写程序,当用户在窗体的文本框中输入一个0100的数字时,标签上立即能够显示对应等级:不及格、及格、中、良、优。(1)窗体构建: 控件标题属性Label1请输入你的成绩:Label3你的等级是:Text0无Command4判断(2)使用Select case End Select分支结构(3)整形变量Score存放分数,StrX字符串用于显示等级(4)窗体保存名为:M21Private Sub Command4_Click()Dim Score As Integer, StrX As StringScore = Text0.ValueSelect Case ScoreCase 0 To 59 StrX = 不及格Case 60 To 69 StrX = 及格Case 70 To 79 StrX = 中Case 80 To 89 StrX = 良Case 90 To 100 StrX = 优End SelectLabel3.Caption = 你的等级是: & StrXEnd Sub题号:12007计算的值。本题使用模块过程函数实现(1)函数名为FC,私有类(2)选择结构采用IfElseEnd if结构(3)x用于接受用户输入值,y用来存放输出值Private Sub FC()Dim x As Double, y As Doublex = Val(InputBox(请输入x的值:)If x = N ThenMsgBox N & 是素数ElseMsgBox N & 不是素数End IfEnd Sub题号:12010编程实现输入一个正数M(M1),能输出1M间3的倍数,以及倍数和。注意:(1)通过模块子函数实现,子函数名为trad,私有类型(2)定义M,N,S整型变量,M为用户输入的数,N为循环计数器,S存放倍数和 定义K为字符串变量,用于存放显示1M间3的倍数(3)循环主体采用Do Whileloop结构(4)其中每个能被3整除的数之间用,隔开如图所示。(5)模块保存名字为M-23Private Sub trad()Dim M As Integer, N As Integer, S As IntegerDim K As StringN = 0M = 0M = InputBox(请输入M的值:)Do While N MIf N Mod 3 = 0 ThenK = K + Str(N) & ,S = S + NEnd IfN = N + 1LoopMsgBox 1到M间3的倍数为: & K & 它们的和为 & SEnd SubM = Val(InputBox(请输入M的值:)Do While N 100s = s + nn = n + 1LoopMsgBox 100以内自然数的和是: & sEnd Sub题号:12013求自然数n的阶乘(1)使用模块插入过程子函数fact实现(2)模块保存为M45Private Sub fact()Dim k As Double, i As Integer, n As Integern = Val(InputBox(请输入n的值:)k = 1For i = 1 To nk = k * iNext iMsgBox n & 的阶乘值为: & kEnd Sub
展开阅读全文