VB程序设计练习——输入一个4位整数并将其逆序
谭浩强--C语言程序设计(第二版)习题答案
C语言程序设计（第2版）课后习题答案第一章1.请参照本章例题，编写一个C程序，输出以下信息：**************************Very good!**************************解：#include<stdio.h>void main(){printf("**************************");printf("\n");printf("Very good!\n");printf("\n");printf("**************************");}2.编写一个C程序，输入a、b、c三个值，输出其中最大值。
解：#include<stdio.h>void main(){int a,b,c,max;printf("请输入三个数a,b,c:\n");scanf("%d,%d,%d",&a,&b,&c);max=a;if(max<b) max=b;if(max<c) max=c;printf("最大数为: %d",max);}第二章1.假如我国国民生产总值的年增长率为10%，计算10年后我国国民生产总值与现在相比增长多少百分比。
计算公式为P=(1+r)^n，r为年增长率；n为年数；P为与现在相比的百分比。
解：#include<stdio.h>#include<math.h>void main(){double P, r=0.1, n=10;P=pow((1+r), n);printf("%lf\n", P);}3.请编程序将"China"译成密码，译码规律是用原来字母后面的第4个字母代替原来的字母。
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
VB程序题
1. 参照下图制作一滚动字幕（滚动方式自由设计）。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
2. 建立一个如下图所示的记事本应用程序（小图标也可用文字替代）。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
3. 编写华氏温度与摄氏温度之间转换的程序。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
4. 建立一个登录程序，界面参考下图。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
5. 编写一个自动贩卖机系统，运行界面如下图所示。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
6. 编写如下图所示的猜数游戏程序。
7. 百元买百鸡。
假设小鸡每只0.5元，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。
结果如下图所示。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
8. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩统计”功能。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
9. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩排序”功能。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
10. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩查询”功能。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
11. 完成如下图所示的“课程管理系统”程序设计。
12. 随机生成3个正整数，其中1个一位数，1个二位数，1个三位数，计算它们的平均值，保留两位小数，运行界面如下图所示。
VB编程题参考
VB程序设计题1* 编写程序：设计一个程序，随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
Dim num As Integer, a As String, b As Stringdim c As String, result As IntegerRandomizenum = Int(Rnd * 900) + 100a = Left(LTrim(Str(num)), 1)b = Mid(LTrim(Str(num)), 2, 1)c = Right(LTrim(Str(num)), 1)result = Val(c) * 100 + Val(b) * 10 + Val(a)Print num, result3* 编写程序：在文本框中输入弧度值，将弧度换算为角度值（度、分、秒）的形式并输出，要求秒数保留三位小数。
Dim a As Double, b As Integer, c As Integer, d As SingleConst PI = 3.14a = 180 * Val(Text1.Text) / PIb = Int(a)c = Int((a - Int(a)) * 60)d = ((a - b) * 60 - c) * 60Print b & "度" & c & "分" & Format(d, "####.000") & "秒"6* 编写一个计时程序。
* 界面要求： * 使用标签、命令按钮、时钟控件完成。
* 运行要求： * 1、点击“开始”按钮，标签显示 0并开始计时，每隔一秒，标签中显示的秒数加1；* 2、点击“结束”按钮，停止计时。
Dim t As IntegerPrivate Sub Command1_Click()Timer1.Enabled = Truet = 0Timer1.Interval = 1000End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()t = t + 1Label1.Caption = tEnd Sub12* 编写程序：编程计算1+(1+2)+(1+2+3)+…+（1+2+3…+n），n由用户输入。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
专题16 VB(学考)非选择题(解析版)
浙江省五年（2015-2019）高中学考、高考选考信息技术真题分类汇编专题16 VB（学考）非选择题（解析版）1.（2019年6月）小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为[60,99]。
如“275”表示2号作品得分75）。
单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。
程序运行界面如图所示。
（1）“计分”按钮的对象名为。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )Dim s As String，d As String，i As IntegerDim f1As Single，f2As Single，f3As Singles = Text1. Texti = 1Do Whiled = Mid(s,i,3)If Mid(d,1,1) = "1”Thenf1 = f1 + Val(Mid(d,2, 2))ElseIf Mid(d, 1, 1) = “2”Thenf2 = f2 + Val(Mid(d,2, 2))Elsef3 = f3 + Val(Mid(d,2, 2))End IfLoopLabel1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码End Sub（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果(选填:会/不会）发生改变。
vb练习及答案版
一、单选题1. 一个完整的计算机系统应包括（ B ）。
(A)主机、键盘、显示器(B) 硬件系统和软件系统(C) 主机和其他外部设备 (D) 系统软件和应用软件2．我们通常说的“U盘”属于计算机部件中的（ C ）。
(A) 输出设备 (B) 输入设备(C) 存储设备 (D) 打印设备3.在下列存储器中，存储速度最快的是( D )。
(A)软盘 (B)硬盘 (C)光盘(D)内存4. 计算机中采用二进制，是因为（ D ）。
(A)可降低硬件成本(B)两个状态的系统具有稳定性(C)二进制的运算法则简单(D)上述三个原因5. 是Internet中的( B )。
(A) 硬件编号(B) 域名 (C) 密码 (D) 软件编号6. 下列设备中，（D ）不能作为计算机的输出设备（A）打印机（B）显示器（C）绘图仪（D）键盘[标准的输入设备]7. 计算机的主机由（B ）部件组成[主机箱内硬件的总称]（A）CPU、外存储器、外部设备（B）主机板，CPU和内存储器（C）CPU和存储器系统（D）主机箱、键盘、显示器8. 在Word中将文档中一部分文本内容复制到别处，首先要进行的操作是（ C ）（A）粘贴（B）复制（C）选择（D）剪切9. Windows系统中，回收站的功能是（B ）（A）浏览上网的计算机（B）存放删除文件（C）设置计算机参数（D）收发信件10. 关于电子邮件的叙述正确的是（C ）（A）电子邮件只能传输文本（B）电子邮件只能传输文本和图片（C）电子邮件可以传输文本、图片、视像、程序等（D）电子邮件不能传输图片11. 下列关于电子邮件的说法，正确的是（C ）（A）收件人必须有E_mail账号，发件人可以没有E_mail账号（B）发件人必须有E_mail账号，收件人可以没有E_mail账号（C）发件人和收件人均必须有E_mail账号（D）发件人必须知道收件人的邮政编码12.下列有关Word的叙述，正确的是（B ）（A）Word是一个应用软件，它只能对文字进行编辑处理（B）Word是在Windows环境下运行的应用软件（C）文档的缺省扩展名是.wrd（D）在Word中，一次只能打开一个文档13. 计算机当前的应用领域广泛，但据统计其应用最广泛的领域是（A ）（A）数据处理（B）科学计算（C）辅助设计（D）过程控制14. 在计算机的内部所处理的任何信息均是采用（B ）。
VB.NET习题集
第一章环境和程序设计初步一.选择题1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（c）。
A.VBB.C++C. PascalD. J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（d）。
A.工具箱窗口B.属性窗口C.立即窗口D.窗体窗口3.在中，在窗体上显示控件的文本，用（a ）属性设置。
A. TextB. NameC. CaptionD. Image4.不论何种控件，共同具有的是什么属性( b )。
A. TextB. Name C．ForeColor D．Text5．对于窗体，可改变窗体的边框性质的属性是（b）。
A.MaxButtonB. FormBorderStyleC. NameD. Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（a）属性进行设置。
A．BackColor B. BorderStyle C．ForeColor D.BackStyle7．若要使命令按钮不可操作，要对（a）属性进行设置。
A. EnabledB.VisibleC. BackColorD. Text8.要使文本框中的文字不能被修改，应对（d）属性进行设置。
A. LockedB. VisibleC. EnabledD. ReadOnly9.要使当前Form1 窗体的标题栏显示“欢迎使用”，以下（b）语句是正确的。
A.Form1.Text=“欢迎使用V”B.Me. Text=“欢迎使用”=“欢迎使用”D.Me. Name=“欢迎使用”10.当运行程序时，系统自动执行启动窗体的（a）事件过程。
A. LoadB. ClickC. UnLoadD. GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（b）。
A.文本框没有内容B.文本框的MulitLine属性为FalseC.文本框的MulitLine属性为TrueD.文本框的Locked属性True12．要判断在文本框中是否按了Enter键，应在文本框的（d）事件中判断。
VB编程题及答案
VB编程题及答案1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和。
Private Sub Command1_Click() RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为", s2设S=35，C=0.3，编写程序，计算并输出下面级数的部分和。
结果取小数点后面7位。
C/1!-C^3/3!+C^5/5!- …+(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ …参考答案如下：Private Sub Command1_Click()Dim n As IntegerDim x As Doublex = 0.3Dim item As DoubleDim sum As DoubleDim fac As DoubleFor n = 1 To 35fac = 1Dim i As IntegerFor i = 1 To 2 * n - 1fac = fac * iNextitem = (-1) ^ (n - 1) * x ^ (2 * n - 1) / facsum = sum + itemNextsum = Int(sum * 10000000 + 0.5) / 10000000MsgBox (sum)End Sub ' sum = 0.4794263定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]），计算数组中所有元素的均值。
Dim i, sum, ave As IntegerDim a(30) As SingleFor i = 0 To 30a(i) = 20+Int(Rnd() * 71)NextFor i = 0 To 30sum = sum + a(i)Nextave = sum / 31print sum4 在窗体上放置文本框Text1、Text2，放置一个按钮Command1。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
(完整版)VB常用算法——排序
VB 常考算法（八）排序:1、算法 1）选择法排序算法说明：根据上例中求最小值的思路， 一轮，以第一个元素逐个跟后面的所有元素比较， 轮比较，第一个元素被确定为最小；同样的方法，下一轮以第二个元素跟剩下的所有元素进 行比较确定下次小的元素；以此类推…下面我们以图形的形式体现对第一轮：第二轮:素参与跟2号元素的比较，共 3次，以次类推，比较次数逐步减少。
经过四轮的比较，利用 逐步求最小值的方法将 5个数从小到大排好序。
对于这样一个排序的过程， 我们可以使用两 个循环分别控制比较的轮数和每一轮的次数。
程序代码：Private Sub Comma nd1_Click() Dim n As In teger n = In putBox(" 请输入数组元素的个数：")Dim a() As In teger, i As In teger, j As In tegerPrint "排序前：”我们可以使用如下方法进行从小到大排序：第 如果比后面的元素大就进行交换，经过一16 4 2 5最小值次小值5个数进行选择排序的过程:第三轮:ReDim a(n)For i = 1 To na(i) = In t(R nd * (99 -10 + 1) + 10) Print a(i);Next iFor i = 1 To n - 1 For j = i To nIf a(i) > a(j) Then temp = a(i)' a(i) = a(j) a(j) = temp End If Next j Next i PrintPrint " 排序后：" For i = 1 To n Print a(i); Next i End Sub2)冒泡法排序算法说明：相邻的元素进行比较，如果前面的元素比后面的元素大，则将它们进行交换,具体思路：设在数组 a 中存放n 个元素，第一轮，将 a(1)和a(2)进行比较，若a(1)>a(2), 则交换这两个元素的值，然后继续用a(2)和a(3)比较，若a(1)>a(2)，则交换这两个元素的值，以此类推，直到a(n-1)和a(n)进行比较处理后，a(n)中就存放了 n 个数中最大的值; 第二轮，用a(1)与a(2),a(2) 与a(3),…,a(n-2)与a(n-1)进行比较，处理方法相同，这一 轮下来，a(n-1)中存放n 个数中第二大的值；…；第 n-1轮，a(1)与a(2)进行比较处理，确保最小值在a(1)中。
VB程序设计编程考试题及答案
VB程序设计编程考试题及答案1。
输入3个数，输出最大的数2。
有一元二次方程:aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根3。
输入一个百分制的成绩，若大于等于60，则用消息框弹出,显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！4。
输入学生的百分制成绩,转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好,70~79转换为中等，60~69转换为及格,0～60转换为不及格。
5。
随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
6。
输入两个整数，求它们的最大公约数。
7.分别统计1—100中,满足3的倍数、7的倍数的数各有多少。
8。
输入一串字符，统计其中字母A（不区分大小写)出现的次数。
9.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
10。
小猴有桃若干，第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个，问小猴原有桃多少？11.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元,母鸡每只3元，编程求解购鸡方案。
12。
编程求斐波那契数列前11项。
(斐波那契数列:F(0）=f（1)=1, F（n)=F（n—1）+F(n —2) n〉=2 ）13。
已知有序数组a（)，编程插入x（x的值为14）。
数组a中的元素分别为{12，6,4，89，75,63，100,20,31}。
14。
找出被3、5、7除,余数均为1的最小的5个正整数。
15利用随机函数产生50～100范围内的20个随机数，显示其中的最大值、最小值和平均值. 16。
编一函数，统计字符串中汉字的个数。
1.输入3个数,输出最大的数Private Sub command1_click（）Dim maxFor i = 1 To 3n = Val（InputBox（"输入第" ＆i ＆"个数")）If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是”; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b,c，判断此方程是否有实根Private Sub Command1_Click(）Dim a，b, c，nb = Text2c = Text3n = b * b — 4 * a ＊cIf n >= 0 ThenLabel4 = ”方程有根”ElseLabel4 = ”方程无根”End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过!”，若小于60,则弹出消息框,显示“抱歉！成绩没有通过！Private Sub Form_Load(）Text1 = ""End SubPrivate Sub Command1_Click（）Dim nn = Text1If n 〉60 ThenVal （MsgBox（"恭喜！成绩通过!"）)ElseVal （MsgBox（”抱歉!成绩没有通过！"））End IfEnd Sub4.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀,80～89转换为良好,70~79转换为中等，60～69转换为及格，0～60转换为不及格。
VB-编程题(1)
编程题（40题）1、在文本框Text1中输入一个正整数N ，按“计算”命令按钮Command1，产生N 个0 ~ 100之间的随机整数，计算这N 个随机整数的平均数，显示在标签Label1中。
将编写的程序存盘，工程文件名为Ex12nnnn.Vbp ，窗体文件名为Ex12nnnn.Frm 。
（当N 足够大时，该平均值应趋向于50）。
Ex12nnnn.Vbp Ex12nnnn.FrmPrivate Sub Command1_Click ( )N = Val (Text1.Text)Sum = 0For k = 1 To NV = Int ( Rnd * 101 )Sum = Sum + VNext kLabel1.Caption = Sum / NEnd Sub2、在文本框Text1中输入一正整数N ，按“计算”命令按钮Command1，计算该数的阶乘N !，结果显示在标签框Label1中。
按“结束”命令按钮Command2 结束程序。
Private Sub Command1_Click （） Private Sub Command2_Click （） N = Val (Text1.Text) EndP = 1 End SubFor k = 1 To NP = P * kNext kLabel1= PEnd Sub3、 在文本框 Text1中输入一个字符串，按“排列”按钮 Command1， 将输入字符串中每两个相邻的字符之间插入一个空格，结果显示在标签框Label1 中。
按“结束”命令按钮Command2结束程序。
Private Sub Command1_Click （） Private Sub Command2_Click （）X = Text1.Text EndL = Len (X) End SubW = “”For k = 1 To L-1V = Mid (X, k, 1)W = W + V + “ ”Next kW = W + Right (X,1)Label1.Caption = WEnd Sub4、编写程序，从键盘输入任一x 的值，求分段函数的值（可用InputBox 函数）。
第7章VB控制结构
例4-14演示
1. If语句
例4-15:从键盘输入一位作者的稿酬，根据 此稿酬计算出应缴纳的税金和扣除税金后作 者实际得到的稿酬。计算税金的方法是： 800元以内（含800，下同）免税，4000元 以内除800元以外的部分按14%上税，4000 以上按80%的14%上税。
1. If语句
Private sub form_click() Dim m as single,tax as single,wage as single m=Val(inputbox(“请输入稿酬”)) If m<=800 then tax=0 ElseIf m<=4000 Then tax=(m-800)*0.14 Else tax=m*0.8*014 End If wage=m-tax print “稿酬为:”;m, “税收为:”;tax,“实际酬金为”;wage End sub
例4-13演示
End sub
1. If语句
例4-14：编写一程序，能将大写字母方式 输入的一个字符转换为小写字母，小写字 母的字符转换成大写字母，其它非字母字 符不改变。
1. If语句
Private sub form_click() Dim ch as string ch=inputbox(“请输入一个字符”) print “输入的原始字符为”；ch If ch>=“A” and ch<=“Z” then ch=Lcase(ch) ElseIf ch>=“a” and ch<=“z” Then ch=Ucase(ch) Else ch=ch End If print “输出字符为”；ch End sub
例4-10演示源自1. If语句例4-11：输入a,b,c三个整数，输出其中最大的
顺序结构程序设计四位数逆序输出方法
文章标题：深入探讨顺序结构程序设计中四位数逆序输出方法在计算机编程中，顺序结构是一种基本的程序设计方法之一。
它按照逻辑顺序一步一步地执行程序，而四位数逆序输出方法则是其中的一个常见问题。
本文将从简到繁，由浅入深地探讨顺序结构程序设计中四位数逆序输出方法，帮助大家更深入地理解这一主题。
1. 了解四位数逆序输出方法在顺序结构程序设计中，逆序输出是一个常见的问题。
对于一个四位数，例如1234，逆序输出即为4321。
这个问题看似简单，实际上涉及到多种编程技巧和算法。
接下来我们将逐步介绍如何通过顺序结构程序设计实现四位数的逆序输出。
2. 基本的程序设计思路我们可以通过将四位数1234拆分为个位、十位、百位和千位数字，然后重新组合得到4321来实现逆序输出。
这种方法比较直观，但在实际编程中可能会涉及到一些细节问题，例如如何判断一个数字是四位数以及如何处理不足四位的情况等。
3. 深入探讨逆序输出的算法除了基本的拆分和组合方法，我们还可以借助循环和取余运算来实现四位数的逆序输出。
我们可以使用循环依次取出1234的个位、十位、百位和千位数字，然后将其组合成4321。
这种算法更加灵活和高效，可以应对各种情况下的逆序输出需求。
4. 实际编程中的应用在实际编程中，逆序输出方法常常用于数字处理、密码生成等场景。
我们可以将上述算法应用到实际的程序中，实现对四位数的逆序输出，并且可以根据实际需求进行相应的优化和改进。
我们可以封装逆序输出方法为一个函数，以便在多个地方复用。
5. 总结和回顾通过本文的介绍，我们对顺序结构程序设计中四位数逆序输出方法有了更深入的了解。
从基本的拆分和组合到算法的深入探讨，我们逐步掌握了实现逆序输出的方法。
在实际编程中，我们可以根据具体情况灵活运用这些方法，实现高效、准确的逆序输出。
6. 个人观点和理解个人认为，顺序结构程序设计中的逆序输出方法虽然看似简单，实际上包含了很多编程技巧和算法思想。
通过不断的学习和实践，我们可以更加灵活地运用这些方法，解决实际的编程问题。
vb程序设计含详解
合用标准文案1、编写程序，将26 个字母逆序输出。
教材 p87 【例 4-15】2、编写程序，在窗体上随机输出一个10--99 之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序，从键盘输入 3 个数，按从小到大的序次输出到窗体上。
Private Sub Form_Click()clsa = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a > b Thent = a: a = b: b = tEnd IfIf a > c Thent = a: a = c: c = tEnd IfIf b > c Thent = b: b = c: c = tEnd IfPrint " 按从小到大排序后的结果 :"; a; " 、"; b; " 、"; c End Sub4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
Private Sub Command1_Click()优秀文档Static i As Integeri = i + 1Select Case iCase 1Form1.Caption = "今天是星期一"Case 2Form1.Caption = "今天是星期二"Case 3Form1.Caption = "今天是星期三"Case 4Form1.Caption = "今天是星期四"Case 5Form1.Caption = "今天是星期五"Case 6Form1.Caption = "今天是星期六"Case 7Form1.Caption = "今天是星期日"i = 0End SelectEnd Sub5、编写程序，将字符串"" 山高人为峰 "" 按逆序 "" 峰为人顶峰 "" 输出。
Visual Basic程序设计教程(第4版)实验答案
※声明：1. 实验所属课本原件为《Visual Basic程序设计教程（第4版）（□主编龚沛曾□编者杨志强陆慰民谢步瀛）》；2. 实验答案代码采用红色字体突出；3. 仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作；4. 教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信；5. 本文为作者原创，复制转载请注明出处；6. 如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信；7. 浏览、复制、下载后请给作者一个合理的评价，感激不尽。
实验1-1图2.1.1 实验1.1运行界面提示：(1) 实验所用到的控件及属性设置见表2.1.1。
表2.1.1 属性设置控件名属性Label1 Caption="欢迎学习Visual Basic"；Font属性：字号为二号，字体为隶书，Aligment=2(居中)Label2 Caption="请输入你的姓名"；Font属性：字体为楷体，有下划线Label3 Caption=""，BorderStyle=1Text1 Text=""Command1 Caption="你输入的姓名是"(2) “欢迎学习Visual Basic”要在两行显示，只要将Label1控件的宽度缩小一些。
Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub实验1-2Sub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left < 0 Then Label1.Left = Form1.Width End SubPrivate Sub Command1_Click()Timer1.Interval = 200End SubPrivate Sub Command2_Click()Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()Call MyMoveEnd Sub编一个程序，在文本框中统计在该窗口上鼠标单击的次数，效果如图2.1.2所示。
编程题vb习题
编程题vb习题编程题1、在窗体上建⽴2个⽂本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运⾏时，在Text1中输⼊⽂本，单击Commadn1命令按钮时，将Text1⽂本框中的值复制到Text2⽂本框中；当单击Command2命令按钮时，退出程序。
2、已知⾃由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重⼒加速度，t为经历的时间，编写⼀程序，求位移量s。
⽤2个磨灭框分别输⼊初始速度和经历的时间，单击⼀个命令按钮时，进⾏计算，并将运算结果在另⼀⽂本框显⽰。
3、输⼊球体的半径，然后计算并输出球体的体积和表⾯积。
已知：球体的体积计算公⼯为：v=4/3πr3，球的表⾯积公式为：f=4πr2，此处的R为还球体的半径。
要求：程序⽤⼀个⽂本框输⼊半径r，单击⼀个命令按钮时，进⾏计算，并将运算结果即球的体积和表⾯积分别⽤2个⽂本框显⽰出来。
4、编写⼀个将摄⽒温度转换成华⽒温度的程序，要求：摄⽒温度通过输⼊对话框来输⼊，结果在窗体上显⽰，已知：由摄⽒温度求华⽒温度的计算公式为：9/5F=9/5×C+32，其中：C为摄⽒温度，F 为华摄温度。
5、从键盘输⼊两个数，编写⼀程序，计算并输出2个数的和及平均值，通过InputBox函数输⼊数据，在窗体显⽰和及平均值。
6、编写⼀个程序，计算半径为15cm、⾼为30cm的圆柱体的体积、半径和⾼通过InputBox函数输⼊，计算结果并将其打印到窗体中。
7、编写⼀程序，输⼊⼀个整数，判断能否被3或5整除，如能整除就打印该数，否则不打印，请半程序代码写在窗体的Click事件中。
8、由键盘输⼊3条线段的长度，判断这3条线段能否构成三⾓形，如能构成三⾓形则计算三⾓形的⾯积，如果不能构成三⾓形则打印出错信息。
请将代码写在窗体的Click事件中，输⼊3条线段请⽤ImputBox函数。