下载文档原格式
VB经典案例1输入3个数，输出最大的数X=val(text1)y=val(text2)z=val(text3)if x>=y thenif x>=z then print xelse print zend ifelse if y>=z then print yend if2有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=val(text1)b=val(text2)c=val(text3)If b*b-4*a*c>=0 then print “有实根”else print “无实根”end if3输入一个成绩，若大于等于60，则用消息框显示“恭喜！成绩通过！”，若小于60，则弹出消息框显示“抱歉！成绩没有通过！”N=val (text1)if n>=60 then msgbox”恭喜！成绩通过!”else msgbox “抱歉！成绩没有通过！”end if4输入一年份，判断它是否为闰年，并显示有关信息(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）y=val(text 1)if y mod 4 =0 and y mod 100 = 0 then print “y是闰年”else print y “不是闰年’”end if5输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
If mark >=90 then grade= ‘优’else If mark >=80 then grade =‘良’else If mark >=70 then grade =‘中’else If mark >=60 then grade =‘及格’else grade=”不及格”6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
VB程序设计实例1.银行存款计算器编写一个程序，可以计算并显示一个银行账户的存款利息。
用户可以输入初始存款金额、年利率以及存款年限。
程序将根据用户的输入计算出最终存款金额，并显示在屏幕上。
```vbModule BankDepositCalculatorSub Main'用户输入初始存款金额、年利率和存款年限Console.WriteLine("请输入初始存款金额：")Dim principal As Decimal = Console.ReadLineConsole.WriteLine("请输入年利率：")Dim interestRate As Decimal = Console.ReadLineConsole.WriteLine("请输入存款年限：")Dim years As Integer = Console.ReadLine'计算最终存款金额Dim finalAmount As Decimal = principal * (1 + interestRate) ^ years'显示最终存款金额Console.WriteLine("最终存款金额为：" & finalAmount)Console.ReadLineEnd SubEnd Module```2.温度转换器编写一个程序，可以将摄氏温度转换为华氏温度或将华氏温度转换为摄氏温度。
用户可以选择要进行的转换类型并输入相应的温度值。
程序将根据用户的选择进行温度转换，并显示转换结果。
```vbModule TemperatureConverterSub Main'用户输入转换类型和温度值Console.WriteLine("请选择转换类型（1-摄氏转华氏，2-华氏转摄氏）：")Dim conversionType As Integer = Console.ReadLineConsole.WriteLine("请输入温度值：")Dim temperature As Decimal = Console.ReadLine'进行温度转换Select Case conversionTypeDim fahrenheit As Decimal = temperature * 9 / 5 + 32Console.WriteLine("转换结果为：" & fahrenheit & "华氏度")Case 2Dim celsius As Decimal = (temperature - 32) * 5 / 9Console.WriteLine("转换结果为：" & celsius & "摄氏度")Case ElseConsole.WriteLine("无效的转换类型")End SelectConsole.ReadLineEnd SubEnd Module```3.数字猜猜猜游戏编写一个程序，模拟一个数字猜猜猜游戏。
VB编程题代码43例1、求100以内的素数。
Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_Click()Dim a$, I%, c$, d$, n%a = InputBox$("输入字符串")n = Len(a)For I = 1 To Int(n \ 2)c = Mid(a, I, 1)Mid(a, I, 1) = Mid(a, n - I + 1, 1)Mid(a, n - I + 1, 1) = cNext IPrint aEnd Sub3、计算0~200之间所有能被11或5整除的数之和Private Sub Form_Click()Dim n%, i%n = 0For i = 1 To 200If i Mod 11 = 0 Or i Mod 5 = 0 Thenn = n + iEnd IfNext iPrint nEnd Sub4、输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年数")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenMsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End If5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。
索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。
再画一个命令按钮，其名称为C1，Visible属性为False。
编写适当的事件过程。
程序运行后，如果在文本框中输入字符，则命令按钮出现。
二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。
程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。
（要求在未输入半径前两个按钮呈灰色不可用。
）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。
程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。
四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。
程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。
单击退出按钮则程序退出。
五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。
（2）收入在200~400元，超过200元的部分纳税3%。
（3）收入超过400元的部分，纳税4%。
（4）当收入达5000元或超过时，将4%税金改为5%。
编程序实现上述操作。
六、给定三角形的三条边的边长，计算三角形的面积。
编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。
当输入-1时结束程序。
七、编程求100以内的全部素数。
八、编程打印钻石图案。
九、输出杨辉三角形。
十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。
VB循环程序例题附答案1. [100，999]X围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300，800]X围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。
761For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3.除1和它本身外，不能被其它整数整除的正整数称为素数〔注：1不是素数，2是素数〕。
假如两素数之差为2 ，如此称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4.数学家哥德巴赫曾猜想：任何大于6的偶数都可以分解成两个素数〔素数对〕的和。
VB 经典案例，竞赛必考出自原创镇宁民族中学 张国海1、1-9组成的不同三位数成1:2:3Private Sub Command1_Click()Dim i, j, k, l, num1, num2, num3 As Integer Dim str, str2 As String For i = 1 To 9 For j = 1 To 9 For k = 1 To 9num1 = i * 100 + j * 10 + k '生产三个三位数并建立关系 num2 = num1 * 2 num3 = num1 * 3If num2 > 999 Or num3 > 999 Then GoTo aa '如果大于999就结束循环 str = num1 & num2 & num3For l = 1 To 9If InStr(1, str, l) = 0 Then GoTo bb '查找这三个数是否包含1到9 Nextstr2 = str2 & num1 & vbTab & num2 & vbTab & num3 & vbCrLfPrint num1, num2, num3 bb: Next Next Next aa:MsgBox str2 '用显示框显示结果 End Sub2、手动输入任意数并进行排序 Private Sub Command1_Click() Dim b(10) As Long Dim a, m, s As Long Dox = InputBox("请输入10以内的数") a = Val(x) If a > 10 Then MsgBox ("dfdf") End IfLoop Until a <= 10 '控制输入10以内的数为排序的个数For s = 1 To ab(s) = InputBox("请输入任意数")Next '手动输入任意数值For i = 1 To a For j = i To aIf b(i) < b(j) Then '实现从大到小排序 m = b(j) b(j) = b(i) b(i) = m End If Nexts = s & b(i) & vbTab '把排序好的数用空格链接在一行上 Next Print s End Sub3、随机产生20个1到20的数去重后排序Private Sub Command1_Click() Dim s(20) As Long Dim i, m As LongText1.Text = "" '设初始值为空Text2.Text = "" Text3.Text = ""For i = 1 To 20s(i) = Int(Rnd * 19 + 1)Text1.Text = Text1.Text & s(i) & " " Next iFor j = 1 To 19For k = j + 1 To 20If s(j) = s(k) Then '把相同的数值归为0 s(k) = 0 End If Next k, jFor l = 1 To 20If s(l) <> 0 Then '统计不等于0的数值，也就是去掉重复的数值Text2.Text = Text2.Text & s(l) & " " End If Next lFor m = 1 To 20 For n = m To 20 If s(m) > s(n) Then t = s(n) s(n) = s(m) s(m) = t End If Next nIf s(m) <> 0 Then '统计排序后不等于0的数值，也就是去掉重复的数值Text3.Text = Text3.Text & s(m) & " " End If Next m End Sub4、求键盘字母的使用频率（不含非英文）Private Sub Command1_Click() Dim x, t As StringDim a(26), s As Integer Dim b(26) As DoubleOpen "D:\基本功训练\part.txt" For Input As #1 DoInput #1, x t = t & xLoop Until EOF(1)For i = 1 To Len(t)If Asc(UCase(Mid(t, i))) - 64 >= 1 And Asc(UCase(Mid(t, i))) - 64 <= 26 Thena(Asc(UCase(Mid(t, i))) - 64) = a(Asc(UCase(Mid(t, i))) - 64) + 1End If Next iFor k = 1 To 26 Print a(k)num = num + a(k) Next kText2.Text = Len(t)For j = 1 To 26b(j) = Format(a(j) / num * 100, "0.00")Text1.Text = Text1.Text & b(j) & "%" & " " Print Next jClose #1 End Sub5、倒计时的制作Dim x, h, m, s As IntegerPrivate Sub Command1_Click()x = InputBox("请输入时间，以分为单位")h = x \ 60m = x Mod 60s = 0Text1.Text = h & ":" & m & ":" & sTimer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Command2_Click()Timer1.Enabled = Not Timer1.Enabled '暂停和开始End SubPrivate Sub Timer1_Timer()If h = 0 And m = 0 And s = 0 ThenMsgBox ("时间到！")EndElseIf s = 0 Thens = 59If m = 0 Thenm = 59h = h - 1Elsem = m - 1End IfElses = s - 1End IfText1.Text = h & ":" & m & ":" & sEnd Sub。
实验报告11实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
目录一、鸟巢绘制 (2)二、加密 (3)三、解密 (4)四、蝴蝶飞舞 (6)五、文本编辑 (6)六、统计 (9)七、小球跳动 (11)八、计算器（彩票摇奖） (12)九、学生信息录入 (16)十、矩阵转置 (17)一、鸟巢绘制Private Sub Form_Click()ClsDim r, xi, yi, xj, yj, x0, y0, aif As Singler = Form10.ScaleHeight / 2x0 = Form10.ScaleWidth / 2y0 = Form10.ScaleHeight / 2n = 16aif = 3.14159 * 2 / nFor i = 1 To nxi = r * Cos(i * aif) + x0yi = r * Sin(i * aif) + y0For j = i To nxj = r * Cos(j * aif) + x0yj = r * Sin(j * aif) + y0Line (xi, yi)-(xj, yj), QBColor(i - 1)PSet (xi, yi)Print i - 1Next jNext iEnd SubPrivate Sub Form_Load()Print "要求：";Print "1.将圆周等分成16份；"Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。
"End Sub附图：二、加密Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc%code = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc(c) + keyIf iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) + keyIf iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case Elsecode = code + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form11.HideForm1.ShowEnd SubPrivate Sub Jiami_Click()Text2 = code(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea)ProgressBar1.max = UBound(workarea)ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text2.TextClose #1End Sub三、解密Function UnCode(ByVal s$, ByVal key%)Dim c As String * 1, iAsc%UnCode = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc("c") - keyIf iAsc < Asc("A") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) - keyIf iAsc < Asc("a") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case ElseUnCode = UnCode + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Jiemi_Click()Text2 = UnCode(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea) ProgressBar1.max = UBound(workarea) ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text2.TextClose #1End Sub四、蝴蝶飞舞Private Sub Form_Load()Print "蝴蝶飞出窗体后重新定位到左下方再向右上方飞" End SubPrivate Sub Timer1_Timer()Static PickBmp As IntegerIf PickBmp = 0 ThenImage1.Picture = Image2.PicturePickBmp = 1ElseImage1.Picture = Image3.PicturePickBmp = 0End IfCall mymoveEnd SubSub mymove()Image1.Move Image1.Left + 40, Image1.Top - 25If Image1.Top <= 0 ThenImage1.Left = 0Image1.Top = 2325End IfEnd Sub图：五、文本编辑Private Sub Copy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub Exit_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4RichTextBox1.FontName = CommonDialog1.FontName RichTextBox1.FontSize = CommonDialog1.FontSize RichTextBox1.FontBold = CommonDialog1.FontBold RichTextBox1.FontItalic = CommonDialog1.FontItalic RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru RichTextBox1.FontUnderline = CommonDialog1.FontUnderline RichTextBox1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Form_Load()Print "注："Print "1.'打开'对话框的初始文件夹应是所要打开文件所在的" Print "文件夹，将提供的xz.txt文件打开；"Print "2.要实现将选定的内容格式化，必须在工具箱中添加" Print "RichTextBox控件（Microsoft Rich Textbox Comtrol 6.0）" Print "并在帮助菜单中查阅其字体设置的相关属性。
.1.一串字符求有多少字母，有多少量字，有多少其余PrivateSubButton1_Click(ByValsenderAsSystem.Object,By ValeAsSystem.EventArgs)HandlesDims,c,q,w,rs=Fori=1ToLen(s)c=Mid(s,i,1)IfUCase(c)>="A"AndUCase(c)<="Z"Thenq=q+1ElseIfc>="0"Andc<="9"Thenw=w+1Elser=r+1EndIfNext="字母有"&q&"个数字有"&w&"个其余有"&r&"个"EndSub2.一串字符以？结尾，求有多少字母，有多少量字，有多少其余PrivateSubButton1_Click(ByValsenderAsSystem.Object,By ValeAsSystem.EventArgs)HandlesDims,a,z,x,c,is=a=Mid(s,1,1)i=1DoWhilea<>"?"IfUCase(a)>="A"AndUCase(a)<="Z"Thenz=z+1ElseIfa>="0"Anda<="9"Thenx=x+1Elsec=c+1EndIfi=i+1a=Mid(s,i,1)Loop=z&x&cEndSub3.给定一个数字求它是几位数字，如（1）.12345(2).-12345PrivateSubButton1_Click(ByValsenderAsSystem.Object,By ValeAsSystem.EventArgs)HandlesDims,c,js=c=Trim(Str(s))IfInt(c)=cThen...Ifc>=0Then="是"&Len(c)&"位数"Else="是"&Len(c)-1&"位数"EndIfElseIfc>=0ThenFori=1ToLen(c)IfMid(c,i,1)="."ThenExitForj=j+1Next="小数点前有"&j&"位数"&" 小数点后有"&Len(c)-j-1&"位数"ElseFori=1ToLen(c)IfMid(c,i,1)="."ThenExitForj=j+1Next="小数点前有"&j-1&"位数"&" 小数点后有"&Len(c)-j-1&"位数"EndIfEndIfEndSub4.求周率公式PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even tArgs)HandlesDima,s,n,pia=1n=1WhileMath.Abs(1/n)>pi=pi+a*(1/n)n=n+2a=-aEndWhile=4*piEndSub5.求自然数 e 公式e=1+1+1/2!+1/3!+⋯+1/n!+⋯.PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even tArgs)HandlesDimn,e1,ln=1e1=1While1/n>...l=1Fori=1Tonl=l*iNextn=n+1e1=e1+1/lEndWhile=e1EndSub6.右直角三角形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDimn,s=""n=Val(TextBox1.Text)Fori=1Tons=""&=Space(n-i)Forj=1Tois&="*"Next&=s&vbCrLfNextEndSub7．等腰三角形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDimn,s=""n=Val(TextBox1.Text)Fori=1Tons=""&=Space(n-i)Forj=1To2*i-1s&="*"Next&=s&vbCrLfNextEndSub8．倒等腰三角形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDimn,s=""...n=Val(TextBox1.Text)Fori=nTo1Step-1s=""&=Space(n-i)Forj=2*i-1To1Step-1s&="*"Next&=s&vbCrLfNextEndSub9．右上角的直角三角形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDimn,s=""n=Val(TextBox1.Text)Fori=nTo1Step-1s=""&=Space(n-i)Forj=iTo1Step-1s&="*"Next&=s&vbCrLfNextEndSub10．菱形PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDimn,s=""Fori=1To6s=""&=Space(i-1)Forj=1To12s&="*"Next&=s&vbCrLfNextEndSub11.水仙花数字三位数字的个位数字的立方和等于该数字自己（1）.判断输入的数字是不是水仙花数PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDims,a,b,c...s=Val(TextBox1.Text)=""a=s\100b=(s-a*100)\10c=sMod10Ifa^3+b^3+c^3=sThen&=s&"是水仙花数"Else&=s&"不是水仙花数"EndIfEndSub（2）.找出全部的水仙花数PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDims,a,b,c="水仙花数是"&vbCrLfFors=100To999a=s\100b=(s-a*100)\10c=sMod10Ifa^3+b^3+c^3=sThen&=s&vbCrLfEndIfNextEndSub12.完整数正整数的因数之和等于这个数（1）.判断输入的数字是不是完整数PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.E ventArgs)HandlesDims,j,l,a(100)s=Val(TextBox1.Text)j=1Fori=1Tos-1IfsModi=0Thena(j)=ij=j+1EndIfNextFori=1Tojl=l+a(i)NextIfl=sThen=s&"是完整数"Else...=s&"不是完整数"EndIfEndSub（2）.找出1到n内的完整数,n由用入PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even tArgs)HandlesDimn,jn=Val(TextBox1.Text)=""Forp=2Tonj=0Fori=1Top-1IfpModi=0Thenj=j+iEndIfNextIfj=pThen&=p&" "EndIfNextEndSub13.示1，1，2，3，5，8，13，21⋯⋯ F(i)=f(i-1)+f(i-2)PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even tArgs)HandlesDimf(30)f(1)=1f(2)=1Fori=3To30f(i)=f(i-1)+f(i-2)Next=""Fori=1To30&=f(i)&","IfiMod6=0Then&=vbCrLfNextEndSub ..。
VB经典案例1输入3个数，输出最大的数X=val(text1)y=val(text2)z=val(text3)if x>=y thenif x>=z then print xelse print zend ifelse if y>=z then print yend if2有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=val(text1)b=val(text2)c=val(text3)If b*b-4*a*c>=0 then print “有实根”else print “无实根”end if3输入一个成绩，若大于等于60，则用消息框显示“恭喜！成绩通过！”，若小于60，则弹出消息框显示“抱歉！成绩没有通过！”N=val (text1)if n>=60 then msgbox”恭喜！成绩通过!”else msgbox “抱歉！成绩没有通过！”end if4输入一年份，判断它是否为闰年，并显示有关信息(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）y=val(text 1)if y mod 4 =0 and y mod 100 = 0 then print “y是闰年” else print y “不是闰年’”end if5输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
If mark >=90 then grade= ‘优’else If mark >=80 then grade =‘良’else If mark >=70 then grade =‘中’else If mark >=60 then grade =‘及格’else grade=”不及格”6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
n=int(r n d *900+100)dim x%,a%,b%,c%a=x mod 10b=int((x mod 100)/10)c=int(x/100 )print x;a*100+b*10+c7 输入两个整数，求它们的最大公约数。
Function gcd %(by val m%,by val n%)if m<n then t=m : m=n:n=tR= m mod ndo while (r< > 0)m=n : n=r :r= mod nloop gcd =nend function8 编程求200--400范围内5的倍数或7的倍数之和。
dim s%,i%s=0For i =200 to 400if i mod 5 =0 or i mod 7 =0 then s=s+iend ifnext iprint s9 计算100~300之间所有能被3和7整除的数之和dim s%,i%s=0for i=100 to 300If i mod 3 =0 and i mod 7 =0 then s=s+iend ifnext iprint “s=” &s10 分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
Dim n1%,n2% ,i%n1=0:n2=0For i=1to 100if i mod 3=0 then n1=n1+1if i mod 7=0 then n2=n2+1next iprint n1,n211 某次歌曲大奖赛，有7个评委。
如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
Dim a(6) as integer i%,max%,min%,sum%a(0)=val(text1.text) 省略 a(6）=val(text7.text)sum=a(0)+a(1)+a(2)+a(3)+a(4)+a(5)+a(6)max=a(0)min=a(0)for i =1 to 6 if min>a(i) then min=a(i)If max<a(i) then max=a(i)sum=sum+a(i)next iprint “平均分”;(sum-min -max)/512 输入一串字符，统计其中字母A出现的次数。
dim s$,i%，n%s=text1n=0for i=1 to len(s）c=mid(s,i,1)If c=”A” OR c=”a” then n=n+1print n13 我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
x=13n=0do while x<26x=x*1.008 n=n+1loopprint “年数为：”;n;”人数为:”;xm=log(2)/log(1.008)if int(m)<>m then m= int(m)+1print m14 小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少Dim n%,i%x=1for i=6 to 1 step -1x =2*(x+1)next i15 求100以内的素数Dim m%,i%,tag as booleanfor m=3 to 100 step 2tag=truefor i=2 to m-1if m mod i=0 Then tag=falsenext iIf tag=true then print m&”是素数”else print m&”不是素数”End ifnext m16 百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡案。
Dim x%，y%,z%,n%n=0print “母鸡”，”公鸡”，”小鸡’for x = 0 to 33for y=0 to 50Z=100-x-yn=n+1if 3*x+2*y+0.5*z=100 then print x,y,znext ynext x17 编程求斐波那契数列前11项。
（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2）Dim x( ) as integer dim i%n=16redim x(n-1)x(0)=1x(1)=1for i=2 to n-1X(i)=x(i-1)+x(i-2)next ifor i=0 to n-1print x(i),if (i+1)mod 5=0 then printnext18 将输入的字符串以反序显示。
例如：输入“ASDFGT”，显示“TGFDSA”Dim i,a,b, n as stringn=inputbox(“输入字符”)i=len(n)for a=1 to i/2b=mid(n,a,1)Mid(n,a,1)=mid(n,i+1-a,1)mid(n,i+1-a,1)=bnext aprint n19 随机产生10个[30,100]内的整数，求最大值及所对应的下标Dim a(0 to 9) as integer i% ,max%, imax%for i=0 to 9a(i)=int (r n d *71 +30)print a(i);next imax=a(0)imax=0for i = 1 to 9If a(i)> max then max =a(i):imax =inext iprint “max=”; max,”imax=”;imax20 随机产生10个[30,100]内的整数，求最大值、最小值和平均值。
Dim a(0 to 9) as integer i% ,max%, min% ,aver!for i=0 to 9a(i)=int (r n d *71 +30)Next imin=a(0)max=a(0)aver=a(0)for i=1 to 9if a(i)>max then max=a(i)If a(i)<min then main=a(i)aver=aver+a(i)next ifor i=0 to 9print a(i);next iprintPrint “max=”;max,”min=”;min, “aver=”;aver/1021 随机产生10个[30,100]内的整数，求最小值及所对应的下标。
Dim a(0 to 9) as integer i% ,min%, imin%for i=0 to 9a(i)=int (r n d *71 +30)print a(i);next imin=a(0)imin=0for i = 1 to 9If a(i)< min then min=a(i) : imin =inext iprint “min=”; min,”imin=”;imin22 随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。
Dim a(4,4) as integerfor i=0 to 4for j=0 to 4a(i,j)=int(r nd*11+10)next jnext iFor i=0 to 4for i=0 to 4print a(i,j);next jprintnext i23 随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。
Dim a(1 to 10) as integer,i%,max%,min%,aver%for i=1 to 10a(i)=int(r n d*100+1)next iMin=a(1)max=a(1)aver=a(1)for i=2 to 10if a(i)>max then max=a(i)If a(i)<minthen Min=a(i)aver=aver+a(i)next iprintprint “max=”;max,”min=”;min,”aver=”;aver/1024 利用随机函数生成一个4×4的矩阵的二维矩阵,范围是[20,50]内的整数,输出该矩阵所有数据之和Dim a(2,3),sum%for i=0 to 3for j=0 to 3a(i,j)=int(r n d*31+20)next inext jFor i =0 to 3for j=0 to 3print a(i,j);next jprintnext ifor i=0 to 3for j=0 to 3Sum=sum+a(i,j)next jnext iprint ”sum=”;sum25已知有序数组a()，编程插入x（x的值为14）。
