如何联合使用文字连接符&、TEXT( )与NOW( )函数？

来源：蜘蛛抓取(WebSpider) 时间：2022-07-14 10:33 标签： 平安福字体

声明：1. 实验所属课本原件为Visual Basic程序设计教程（第4版） （主编 龚沛曾 编者 杨志强 陆慰民 谢步瀛） ；2. 实验答案代码采用红色字体突出 ；3. 仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作 ；4. 教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信 ；5. 本文为作者原创，复制转载请注明出处 ；6. 如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信 ；7. 浏览、复制、下载后请给作者一个合理的评价，感激不尽 。实验1-1编制简单的欢迎界面程序。 要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。 程序运行效果如图2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”。（如某同学的学号为A，所完成的是实验2的第3题，那么程序文件名为“A-3.frm”和“A-3.vbp”） 图2.1.1 实验1.1运行界面提示： (1) Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub实验1-2模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过Windows搜索功能查找。以“学号-1-2”为项目名保存。表2.1.2 属 性 设 Sub实验1-6图片缩小、还原的设置。窗体上放置一个Image图像控件和两个命令按钮。Image图像控件装入自己喜欢的图片，设置Stretch属性为True，使得图片随着图像控件的大小而变，如图2.1.4所示。以“学号-1-6”为项目名保存。图2.1.4 实验1.6运行界面要求：（1）单击“缩小一半”按钮，图片纵、横均缩小一半。（2）单击“还原”按钮，图片与初始装入时同大。提示：为了实现还原效果，要做以下3件事。（1）必须在事件过程外，即程序代码最上方声明窗体级变量：Dim h%,w% Sub实验2-3输入一个合法的3位正整数，测试其数值合法性后，逆序输出并显示。例如，输入“734”，输出是“437”，如图2.2.2所示。提示：（1）利用Text1_LostFocus事件，输入数据合法性检查调用IsNumeric函数，参阅教学篇例2.5；若有错利用MsgBox显示出错信息，如图2.2.3所示；清除文本框内输入的非法数据，通过SetFocus定位于文本框处，重新输入。（2）利用“MOD”和“”运算符将一个3位数分离出3个1位数，然后利用乘法和加法运算将3个1位数连接成一个逆序的3位数。图2.2.2 Sub实验2-6Print方法练习，显示字符图形。参考教学篇例4.4输出简单图形，如图2.2.6所示。要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。提示：利用循环语句和String函数。读者也可以发挥自己的想像力，设计更美观的图形。进一步要求：若要显示如图2.2.7所示的图形，程序要如何修改？图2.2.6 实验2.6运行界面 图2.2.7 实验3.3运行界面提示：利用InputBox函数输入3个数，存放到数值型变量中，然后对其进行比较；若放在字符串变量中，有时会得到不正确的结果（因为字符串是从左到右的规则比较，例如会出现“34”“2345”“126789”的情况）。对三个数进行排序，只能通过两两比较，一般可用三条单分支if语句来实现。方法如下：先将x与y比较，使得xy；然后将x与z比较，使得xz，此时x最大；最后将y与z比较，使得yz。要显示多个数据，可以用“;”逐一显示，也可利用“&”字符串连接符将多个变量连接显示。例如要输出x、y、z：Print Sub实验3-5利用计算机解决古代数学问题”鸡兔同笼问题”。即已知在同一个笼子里有总数为M只鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？提示：鸡、兔的只数通过已知输入的M,N列出方程可解， 设鸡为x只，兔为y只，则计算公式为:但不要求出荒唐的解（如3.5只鸡、4.5只兔，或者求得的只数为负数）。因此，在Text2_LostFocus事件中要考虑下面两个条件：输入的总脚数N必须是偶数，否则提示数据错误的原因，要求重新输入数据。（使用求余方法判断，即N Mod 20）图2.3.3 实验3.5运行界面 Sub实验3-7检查表达式输入中圆括号配对问题。要求对文本框输入的算术表达式，检验其圆括号配对情况，并给出相应信息，如图2.3.5所示。当单击“重置”按钮，清除文本框输入的内容、窗体显示的信息和计算，并对窗体级变量赋初值零，便于再次输入和统计。提示：在过程外最上方声明一个窗体级变量n，存放统计括号配对的情况；在Text1_KeyPress(KeyAscii As Friday, Saturday, Sunday)End IfEnd Sub实验3-9设计如图2.3.6所示的计算程序。当输入参数，选择“函数”和“字形”后单击“计算”按钮，在Label3以选择的字形显示计算的结果。提示：关于“字形”复选框的选用采用逐个判断选择，进行属性值的对应设置。字形的属性见表2.3.1，设置属性值为True时其属性起作用。字 形 属 FalseEnd IfEnd Sub实验3-10利用单选按钮，选择目的地和车速类型，显示从上海出发到目的地座票的票价，如图2.3.7所示。从上海到南京、北京乘火车有3种车速类型：高铁（二等）、动车、快车，座位票的票价见表2.3.2。当选择了目的地、车速类型单选按钮后，在Label1控件显示选择的相关信息和车票价格。表2.3.2 票 价目 的 地高 铁动 车快 Sub实验3-11编写一个“个人简历表”程序。该程序运行后，用户在文本框中输入姓名和年龄，选择性别、职业、学历和个人兴趣等个人信息。单击“递交”按钮运行后，在右侧Label1控件显示具体个人信息；单击“重置”按钮则清除输入的信息和所做的选择。运行界面如图2.3.8所示。图2.3.8 个人简历表提示：利用xb，xl，zy，ah字符串变量分别保存性别、学历、职业和爱好的选择信息。Dim Sub实验4-5计算当第i项的值10-4时结束提示：本题的关键是找规律写通项。本题规律为：第i项的分母是前一项的分母加i，即分母通项为：Ti=Ti-1+i。因为事先不知循环次数，应使用Do While循环结构；当然也可利用For循环结构，设置循环的终值为一个较大的值，当满足精度后退出循环。运行结果如图2.4.5所示。图2.4.5 实验4.5运行界面Dim s!, t!, Sub实验4-6编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为提示：解该题的方法有两种： 利用三重循环，将三个数连接成一个3位数进行判断。例如，将i,j,k，3个一位数连成一个3位数的表达式为：i*100+j*10+k；i,j,k分别为三重循环的循环控制变量通常，对于若干个一位数要连接成一个多位数（例如，将19连接成一个9位数），程序段如下：s=0For i=1 To 9s=s*10+inext i 利用单循环将一个3位数逐位分离后进行判断。例如x是一个3位数，分离为3个一位数i,j,k，方法如下：x=357i=x100 获得百位数结果3j=（x Mod 100）10 获得十位数结果5k=x Mod 10 获得个位数结果7通常，对于若干位数值（例如，s是一个9位数），利用循环从右边开始逐位分离，程序段如下：s = Do While s 0s1 = s Mod 10s

我要回帖

更多关于 平安福字体 的文章

 

随机推荐