vb常用程序代码

合集下载

vb经典代码

1。

求三角形的面积代码：Option ExplicitDim a!,b!,c!r，！，s!Private Sub Command1_Click()a = InputBox(”a=”, "请输入a的数值"）b = InputBox（”b=", "请输入b的数值"）c = InputBox("c=”, ”请输入c的数值")If a + b 〉c And a + c 〉b And b + c > a And a 〉0 And b 〉0 And c 〉0 Thenr = 1 / 2 * （a + b + c)s = Sqr(r ＊（r — a) * (r — b) ＊（r — c)）Label1。

Caption = "三角形的面积为" & sElseLabel2.Caption = ”输入的数据不能构成三角形"End IfEnd Sub2.三个数排列代码:Option ExplicitDim x!，y!，z！, t！Private Sub Command1_Click（）x = InputBox（"输入第一个数x")y = InputBox("输入第二个数y”）z = InputBox("输入第三个数z"）Print "排序前"；x ＆”" & y ＆””＆zIf x < y Then t = x：x = y: y = tIf y < z Thent = y: y = z: z = tIf x 〈y Thent = x：x = y: y = tEnd IfEnd IfPrint "排序后”；z & ”" ＆y & ”" ＆xEnd Sub3。

计算一元二次方程的代码：Option ExplicitDim a!，b！,c！，d！,x1！，x2！Private Sub Command1_Click（）a = InputBox（”a=”, ”请输入一元二次方程的系数a"）b = InputBox（"b=”，”请输入一元二次方程的系数b")c = InputBox(”c=”，"请输入一元二次方程的系数c”) If a = 0 ThenPrint ”因为a≠0,你输入的a＝0，请重新输入系数a" End Ifd = b ^ 2 - 4 * a * cIf d >= 0 Thenx1 = （—b + Sqr(d)）/ （2 * a）x2 = (—b - Sqr（d)) / (2 * a）Print ”系数为”＆a; b; c ＆"的一元二次方程的根分别为”& "x1=”& x1 & ”" ＆"x2=" ＆x2ElsePrint ”此方程在实数范围内无解"End IfEnd Sub4。

vb编程代码大全

vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。

在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。

一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。

定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。

定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。

定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。

例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。

例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。

例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。

VB常见20道编程代码

哈哈哈20道编程代码1.1000以内的全部完数Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim s As LongFor n = 1 To 1000s = 1For i = 2 To n - 1If n Mod i = 0 Then s = s + iNext iIf s = n ThenText1 = Text1 & n & " "If k Mod 5 = 0 Then Text1 = Text1 & vbCrLfEnd IfNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub2.百元买百鸡Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 20For j = 0 To 33If 5 * i + 3 * j + (100 - i - j) * 1 / 3 = 100 ThenText1 = Text1 & "买" & CStr(i) & "只公鸡" & CStr(j) & "只母鸡" & CStr(100 - i - j) & "只小鸡"Text1 = Text1 & Chr(13) & Chr(10)End IfNext jNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub3.不靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As Integer, s%For i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jPrintNext ik = SumSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next iSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Text1 = k - SumEnd SubPrivate Sub Command2_Click()EndEnd Sub4.递归函数求斐波拉契数列Option ExplicitPrivate Sub Command1_Click()Dim a1, a2, b As IntegerDim i, n As Integern = InputBox("显示数列的前N项")a1 = 1For i = 1 To nb = a1 + a2Text1.SelText = b & " "a1 = a2a2 = bNext iEnd SubPrivate Sub Command2_Click() EndEnd Sub5.各位数之和Private Sub Command1_Click() Dim i As StringDim j%Dim s%i = Text1For j = 1 To Len(i)st = Mid(i, j, 1)s = s + Val(st)Next jText2 = sEnd SubPrivate Sub Command2_Click() EndEnd Sub6.回文数Private Sub Command1_Click() Dim x$, y$, c$, i%x = Text1For i = 1 To Len(x)c = Mid(x, i, 1)y = c + yNext iIf y = x ThenText2 = "x是回文数"ElseText2 = "x不是回文数"End IfEnd Sub。

VB 做简易计算机程序代码

VB 做简易计算机程序代码Private Sub Command1_Click()'每点击一下该按钮,就在文本框的尾部加字符"0"'如果txtLabel为空,则说明现在正在输入的第一个数字'负责表示输入的是第二个数字If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "0"ElsetxtSecond.Text = txtSecond.Text + "0"End IfEnd SubPrivate Sub Command10_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "8"ElsetxtSecond.Text = txtSecond.Text + "8"End IfEnd SubPrivate Sub Command11_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "9"ElsetxtSecond.Text = txtSecond.Text + "9"End IfEnd SubPrivate Sub Command12_Click()txtLabel.Text = "加"End SubPrivate Sub Command13_Click()txtLabel.Text = "减"End SubPrivate Sub Command14_Click()txtLabel.Text = "乘"End SubPrivate Sub Command15_Click()txtLabel.Text = "除"Private Sub Command16_Click()Dim MyResult As Double '定义一个Double类型的变量.Select Case txtLabel.Text '以txtLabel.Text的值为多重分支条件Case "加" '当txtLabel.Text的值为"加"时MyResult = Val(txtFirst.Text) + Val(txtSecond.Text)Case "减" '当txtLabel.Text的值为"减"时MyResult = Val(txtFirst.Text) - Val(txtSecond.Text)Case "乘" '当txtLabel.Text的值为"乘"时MyResult = Val(txtFirst.Text) * Val(txtSecond.Text)Case "除" '当txtLabel.Text的值为"除"时MyResult = Val(txtFirst.Text) / Val(txtSecond.Text)End SelecttxtLabel.Text = "" '将txtLabel,txtSecond清空txtSecond.Text = ""txtResult.Text = MyResult '显示计算结果txtFirst.Text = txtResult.Text '将计算结果作为第一个数字,以便继续运算End SubPrivate Sub Command17_Click()txtFirst.Text = ""txtLabel.Text = ""txtSecond.Text = ""End SubPrivate Sub Command18_Click()Unload MeEnd SubPrivate Sub Command2_Click()'如果txtLabel为空,则说明现在正在输入的是第一个数字;否则表示当前正在输入的是第二个数字'转换语句的主要含义是:首先用Val函数将txtFirst.Text 转换为数字,然后再乘以-1If txtLabel.Text = "" ThentxtFirst.Text = -1 * Val(txtFirst.Text)ElsetxtSecond.Text = -1 * Val(txtSecond.Text)End IfEnd SubPrivate Sub Command3_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "1"txtSecond.Text = txtSecond.Text + "1"End IfEnd SubPrivate Sub Command4_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "2"ElsetxtSecond.Text = txtSecond.Text + "2"End IfEnd SubPrivate Sub Command5_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "3"ElsetxtSecond.Text = txtSecond.Text + "3"End IfEnd SubPrivate Sub Command6_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "4"ElsetxtSecond.Text = txtSecond.Text + "4"End IfEnd SubPrivate Sub Command7_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "5"ElsetxtSecond.Text = txtSecond.Text + "5"End IfEnd SubPrivate Sub Command8_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "6"ElsetxtSecond.Text = txtSecond.Text + "6"End IfEnd SubPrivate Sub Command9_Click()If txtLabel.Text = "" ThentxtFirst.Text = txtFirst.Text + "7"ElsetxtSecond.Text = txtSecond.Text + "7"End IfEnd SubPrivate Sub Form_Load()txtFirst.Text = ""txtSecond.Text = ""txtLabel.Text = ""End SubPrivate Sub m2_Click()frmAbout.Show 1 '在Show命令后加参数1，表示以模态方式显示frmAbout窗体End SubPrivate Sub Text2_Change()'每当txtFirst的内容发生变化时,将变化记过随时映射到txtResulttxtResult.Text = txtFirst.TextEnd SubPrivate Sub Text4_Change()'每当txtSecond的内容发生变化时,将变化记过随时映射到txtResulttxtResult.Text = txtSecond.TextEnd Sub。

VB常用代码

VB常用代码Private Declare Function fCreateShellLink Lib "" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongSub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\", "")'添加到程序组lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\", "")'添加到启动组lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\", "")End Sub问题二、如何让程序在Windows 启动时自动执行？有以下二个方法：方法1: 直接将快捷方式放到启动群组中。

方法2:在注册档HKEY_LOCAL_MACHINE 中找到以下机码\Software\Microsoft\Windows\CurrentVersion\Run新增一个字串值，包括二个部份1. 名称部份：自己取名，可设定为AP 名称。

vba常用代码大全

前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA 函数，以供大家学习参考。

第1.1例 ASC函数一、题目：要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII 值。

二、代码：Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

也可以写为 Dim myNum1 As Integer 。

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。

Integer 的类型声明字符是百分比符号 (%)。

3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。

Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。

语法Asc(string)必要的 string（字符串）参数可以是任何有效的字符串表达式。

如果 string 中没有包含任何字符，则会产生运行时错误。

4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。

vb常用程序代码

1、求半径为r的圆的面积，要求用户从键盘输入半r。

程序代码：Private Sub Form_click()Const PI = 3.14Dim r%Dim s!r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * rForm1.FontSize = 16Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub2、输入三个整数，从小到大顺序输出。

程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a > b Then t = a: a = b: b = tIf a > c Then t = a: a = c: c = tIf b > c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub3、输入三个整数，从大到小顺序输出。

程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a <b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub4、输入x的值，输出对应的值。

VB编程常用代码大全（精品）

VB编程常用代码大全（精品）VB编程常用代码大全ＶB编程常用代码大全１.数值型函数：ａｂｓ(nuｍ)：返回绝对值sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2lｏｇ(num): 取以e为底的对数 nｕm>0exp(n): 取ｅ的ｎ次幂通常用 num＾nsｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)2.字符串函数:leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(st ｒ）:字符串转成小写Ｕcase(str）:字符串转成大写triｍ(str):去除字符串两端空格Ltｒim（str）：去除字符串左侧空格Ｒtrim(str):去除字符串右侧空格ｒeｐlａce（ｓtr,查找字符串，替代字符串，［起始字符,替代次数,比较方法］):替换字符串注:默认值:起始字符 1;替代次数不限；比较方法区分大小写(0)ＩｎStｒ（［起始字符,]ｓtr,查找字符串［,比较方法]):检测是否包含子字符串可选参数需同时选返回起始位置InＳtrRｅv（str，查找字符串[,起始字符]［,比较方法])：反向检测是否包含子字符串返回起始位置space(ｎ):构造n个空格的字符串string(ｎ,str）:构造由n个str第一个字符组成的字符串StrReｖerse(sｔr）：反转字符串spｌit(ｓtr,分割字符串[,次数］[,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选３.数据类型转换函数：Cinｔ（sｔr):转换正数 Tｒue -１;False 0;日期距离1899/12／31天数；时间上午段０；下午段 1；Cｓｔｒ(str)：日期输出格式ｙyyｙ/ｍm/ｄd；时间输出格式Am/Pm ｈh:mｍ:ssCｌｎg(ｓｔｒ）：与Cin（)类似Cｂｏoｌ(num)：num不为零 Truｅ;反之 FalseCdate（ｓtr)：转换日期格式0:#Am 1２:０0:00#；正数距离１899/１２／３１天数的日期;浮点数日期＋小数时间Cｂyｔe(nuｍ)：ｎum<255 转换为字节Ｃsng(stｒ):转换为单精度数值Cdbl(ｓtr):转换为双精度数值Ｃcur(ｓtｒ)：转换为现金格式４.时间函数：daｔe：取系统当前日期ｔime：取系统当前时间ｎｏｗ：取系统当前时间及日期值Ｄatｅtime类型ｔimｅr：取当前时间距离零点秒值，计时器，可计算时间差ＤateAdd(间隔单位,间隔值，日期）：推算相邻日期DateDiff(间隔单位,日期一，日期二)：计算时间差日期二-日期一Ｄａｔｅpart(间隔单位,日期)：计算日期的间隔单位值Dateｓｅriaｌ（datｅ)：输出日期值(按序列计算)Ｔｉmeｓerial(time):输出时间值（按序列计算）Ｄａtevalue(ｄａteｔimｅ):取出字符串中日期值Timeｖａlue(ｄatetiｍe）：取出字符串中时间值weekdａy（datｅ):计算星期几MontｈＮaｍe(datｅ）：输出月分名yeaｒ(ｄatetimｅ):截取年份moｎth(dａtetｉme)：截取月份day(ｄatetimｅ):截取日ｈoｕｒ(datetime)：截取小时minutｅ(datetｉme):截取分钟sｅconｄ(daｔetimｅ)：截取秒５.其它函数:Aｒray(ｕｎit,．.)：动态生成数组Aｓc(str):输出字符串第一个字符的ASCIＩ码Chr(ａsc):转换ASＣII为字符 Enter:Ｃhｒ(13)&Ｃhr（10) Fｉlte ｒ（数组名称,关键字符串,[,包含][,比较方法]）：将字符串数组中含有关键字符串的元素存成新的数组(默认）[包含]为fａlsｅ则取不包含的元素oiｎ（ArrａｙName）:将数组中元素连成字符串Ubound（ArraｙNamｅ［,维数])：取得数组相应维数的上界Lbounｄ(ArrayＮame[,维数］）：取得数组相应维数的下界一般为0Randmize ｎ：启动随机数种子Rｎｄ(n）：取得随机数,n>０或为空,取序列下一随机值，ｎ<0,随机值相同，n=０,生产与上一随机值相同的数取介于A和B之间的随机正数Ｃ,公式:Ｃ=Int((Ｂ－A+1）*Rｎd+Ａ) 条件(B＞Ａ)子程序和自定义函数Sub ＳtrＳubName Ｆｕｎction StｒＦunName（arg[１］，..)子程序体函数体Eｘit Ｓｕb 中途跳出 Eｘit Funcｔｉon 中途跳出Ｅnd Sub StrFunＮamｅ=vａlue 返回值Enｄ Fｕnctioｎ［ｃall] SｔrＳｕbNａme 引用子程序Ｖar=ＳtｒFuｎName(arg[1］，．.) 引用函数...内容来自网络 ...。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

1、求半径为r的圆的面积，要求用户从键盘输入半r。

y=10+2x(0<x≦10)50-x(10<x≦20)30(20<x≦30)60-x(30<x≦40)程序代码：（一）、Private Sub Command1_Click()Dim x As Integer, y As Integerx = Val(Text1.Text)If x > 0 And x <= 10 Theny = 10 + 2 * xMsgBox "x=" & x & "y=" & yElseIf x <= 20 Theny = 50 - xMsgBox "x=" & x & "y=" & yElseIf x <= 30 Theny = 30MsgBox "x=" & x & "y=" & yElseIf x <= 40 Theny = 60 - xMsgBox "x=" & x & "y=" & yElseMsgBox "x=" & x & "不在统计数据的范围内"End IfEnd Sub（二）、Private Sub Command1_Click()Dim x%, y%x = InputBox("x")Select Case xCase Is <= 10y = 10 + 2 * xCase Is <= 20y = 50 - xCase Is <= 30y = 30Case Is <= 40y = 60 - xCase ElseMsgBox "输入不合法"End SelectPrint "x="; x, "y="; yEnd Sub5、编写一个程序，输出给定的某年某月的天数。

程序代码：Private Sub Command1_Click()Dim year As Integer, month As Integer, day As Integer year = CInt(Text1.Text)month = CInt(Text2.Text)Select Case monthCase 1, 3, 5, 7, 8, 10, 12day = 31Case 4, 6, 9, 11day = 30Case 2If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then day = 29Elseday = 28End IfCase Elseday = 0End SelectIf day <> 0 ThenMsgBox year & "年" & month & "月有" & day & "天"ElseMsgBox "输入的月份不符合实际！"End IfEnd Sub6、求S=1+2+3+....+100的累加和。

程序代码：(一)、For….Next循环Private Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 100s = s + iNext iPrint "s="; sEnd Sub（二）、Do While…Loop循环Private Sub Command1_Click()Dim i%, s%s = 0: i = 1Do While i <= 100s = s + ii = i + 1LoopPrint "s="; sEnd Sub（三）、Do Until….LoopPrivate Sub Command1_Click()Dim i%, s%s = 0: i = 1Do Until i > 100s = s + ii = i + 1LoopPrint "s="; sEnd Sub7、接6，如果累加达到1000时马上终止循环，同时输出此时循环变量i的值。

程序代码：（一）、Private Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 100s = s + iIf s >= 1000 Then Exit ForNext iPrint "s="; s, "i="; iEnd Sub（二）、Private Sub Command1_Click()Dim i%, s%s = 0: i = 0While s < 1000i = i + 1s = s + iWendPrint "s="; s, "i="; iEnd Sub（三）、Private Sub Command1_Click()Dim i%, s%s = 0: i = 1While s < 1000s = s + ii = i + 1WendPrint "s="; s, "i="; i - 1End Sub8、任意俩个正整数，使用欧几里得算法（即辗转相除法）求它们的最大公约数。

程序代码：（一）、While…..Wend循环Private Sub Command1_Click()Dim M%, N%, R%M = Val(InputBox("请输入一个数M：", "求最大公约数"))N = Val(InputBox("请输入一个数N：", "求最大公约数"))R = M Mod NWhile R <> 0M = NN = RR = M Mod NWendPrint "它们的最大公约数是："; NEnd Sub（二）、Do…..Loop循环Private Sub Command1_Click()Dim M%, N%, R%M = Val(InputBox("请输入一个数M：", "求最大公约数"))N = Val(InputBox("请输入一个数N：", "求最大公约数"))R = M Mod NDo While R <> 0M = NN = RR = M Mod NLoopPrint "它们的最大公约数是："; NEnd Sub9、给定一个正整数n（n≥3），判断它是否是素数。

程序代码：（一）、原版Private Sub Command1_Click()Dim Flag%, I%, N&N = Val(InputBox("请输入一个整数", "判断是否是素数"))Flag = 0: I = 2While I <= N - 1 And Flag = 0If N Mod I = 0 Then Flag = 1 Else I = I + 1WendIf Flag = 0 Then Print N & "是素数" Else Print N & "不是素数"End Sub（二）、改进版Private Sub Command1_Click()Dim Flag%, I%, k%, N&N = Val(InputBox("请输入一个整数", "判断是否是素数"))Flag = 0: I = 2: k = Int(Sqr(N))While I <= k And Flag = 0If N Mod I = 0 Then Flag = 1I = I + 1WendIf Flag = 0 ThenPrint N & "是素数"ElsePrint N & "不是素数"End IfEnd Sub10、找出100~200之间的全部素数。