vba编程综合答案

《vba编程综合答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Access数据库==================================================题号：12003设计程序，对用户输入的任意两个整数，按升序输出。将任意两个数按指定顺序排列是必须掌握的基本算法，基本要领就是借助第三个变量将x变量和y变量进行交换。代码为：temp=x:x=y:y=temp操作提示：新建一个窗体swap如下图所示控件名称标题或功能Label1"请输入x的值"Label3"请输入y的值"Label5"x="Label6"y="Text0x：格式：常规数字Text2y：格式：常规数字Command4"交换"代码写在command4的单击事件过程

2、中，执行效果如图所示。PrivateSubCommand4_Click()x=Text0.Valuey=Text2.ValueIfx>yThentemp=x:x=y:y=tempEndIfLabel5.Caption="x="&xLabel6.Caption="y="&yEndSub题号：12006编写程序，当用户在窗体的文本框中输入一个0～100的数字时，标签上立即能够显示对应等级：不及格、及格、中、良、优。(1)窗体构建:控件标题属性Label1请输入你的成绩：Label3你的等级是：Text0无Command4判断(2)使用Selectcase……EndSelect分支结构(3)整形

3、变量Score存放分数，StrX字符串用于显示等级(4)窗体保存名为：M21PrivateSubCommand4_Click()DimScoreAsInteger,StrXAsStringScore=Text0.ValueSelectCaseScoreCase0To59StrX="不及格"Case60To69StrX="及格"Case70To79StrX="中"Case80To89StrX="良"Case90To100StrX="优"EndSelectLabel3.Caption="你的等级是："&StrXEndSub题号：12007计算的值。本题使用模块过程函数实现(1)函数名为FC，私

4、有类(2)选择结构采用If……Else……Endif结构(3)x用于接受用户输入值，y用来存放输出值PrivateSubFC()DimxAsDouble,yAsDoublex=Val(InputBox("请输入x的值："))Ifx<=0Theny=x^2+x+1Elsey=x^2+4*x-2EndIfMsgBox"y的值是："&yEndSub题号：12011编程实现输入一个整数X，能判别其是否为素数。素数又称质数。指只能被1和自身整除的自然数。注意：(1)使用模块过程函数实现，函数名为prime，为私有函数。(2)使用I，N整形变量，其中N为用户输入的数，I为循环计数器(3)循环结构采用F

5、or……next形式(4)效果如图所示，模块最后保存为：M-24PrivateSubprime()DimIAsInteger,NAsIntegerN=InputBox("请输入N：")ForI=2ToN-1IfNModI=0ThenExitForNextIIfI>=NThenMsgBoxN&"是素数"ElseMsgBoxN&"不是素数"EndIfEndSub题号：12010编程实现输入一个正数M（M≥1），能输出1～M间3的倍数，以及倍数和。注意：(1)通过模块子函数实现，子函数名为trad，私有类型(2)定义M，N，S整型变量，M为用户输入的数，N为循环计数器，S存放倍数和定义K为字符串

6、变量，用于存放显示1～M间3的倍数(3)循环主体采用DoWhile……loop结构(4)其中每个能被3整除的数之间用","隔开如图所示。(5)模块保存名字为M-23PrivateSubtrad()DimMAsInteger,NAsInteger,SAsIntegerDimKAsStringN=0M=0M=InputBox("请输入M的值：")DoWhileN

7、<=MIfNMod3=0ThenK=K&N&","S=S+NEndIfN=N+1LoopMsgBox"1到M间3的倍数为："&K&"它们的和为"&S题号：12009计算表达式的值。分析可知表达式的通项公式为：操作提示：（1）界面设计。窗体放置2个标签，分别显示表达式及结果；放置1个命令按钮，用于启动计算过程。（2）属性设置，如图所示。属性设置属性对象名称标题标签控件lblProblemS=1/2!-3/4!+5/6!-7