用VB编写随机产生12个两位数,比较获得最大最小数
VB编程题(附答案)汇总
Vb编程题1.求自然数1～100之间奇数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint "sum="; sumEnd Sub2.求自然数1～100之间偶数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 thensum = sum + iend ifNext iPrint "sum="; sumEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。
Sub command1_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
Private Sub Command2_Click()Clsa = Val(InputBox("接收三个数:"))Print a;Max = aFor i = 1 To 2a = Val(InputBox("接收三个数:"))Print a;If a > Max Then Max = aNextPrintPrint "三数中最大者是:"; MaxEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。
VB随机数
即，产生大于等于0而小于1的随机数；
②函数的应用举例
１、如何产生大于等于0而小于50的随机数(包括整数或小数)？
函数代码：Rnd*50
２、如何产生大于等于0而小于50的随机整数？
函数代码：Fix(Rnd*50)
函数说明：Fix()函数的功能是，对数据值进行取整，不进行四舍五入；通过Fix(Rnd*50)就可以得到大于等于0而小于等于49这个范围之内的任何一个整数。
无论使用任何编程语言，都有一个随机函数，用来产生随机的种子，稍微对代码进行改良，即可得到所想要的在一定范围之内的随机数。
在VB程序设计中，随机函数的名称是：Rnd
该函数，直接调用即可，不用加括号。
①函数名称
Rnd
函数取值范围：产生 [0,1) 区间的随机数；得到的结果，其值要么为0，要么为0.几，注意，得到的是小数；
３、如何产生大于等于１而小于等于50的随机整数？
函数代码：Fix(Rnd*50)+1
４、如何产生［m，n］区间的随机整数？
通用公式：Fix(Rnd*(n-m+1))+m
Come from Article Url??/2419.html
数字大小找出最大或最小数字
数字大小找出最大或最小数字在我们的日常生活中，数字扮演着重要的角色。
无论是在计算机科学、数学还是金融领域，我们经常需要找到一组数字中的最大或最小数字。
本文将讨论几种不同的方法来找出数字中的最大或最小数字，以及这些方法的适用场景和效率。
一、遍历法最简单的方法是遍历整个数字列表，并与已知的最大或最小数字进行比较。
通过这种方法，我们可以逐个比较数字，并将当前最大或最小数字与下一个数字进行比较，以确定新的最大或最小数字。
例如，给定一个数字列表[3, 8, 2, 5, 1]，我们可以使用遍历法来找到最大数字：```pythonnumbers = [3, 8, 2, 5, 1]largest_number = numbers[0]for number in numbers:if number > largest_number:largest_number = numberprint("最大数字为：" + str(largest_number))```以上代码中，我们首先将第一个数字设为当前最大数字，然后遍历列表中的每个数字。
如果当前数字大于最大数字，则更新最大数字。
最后，我们输出最大数字。
同样的方式也适用于查找最小数字。
我们将最小数字初始化为列表中的第一个数字，并遍历整个列表，如果当前数字小于最小数字，则更新最小数字。
这种遍历法适用于小型列表，但在大型数据集上效率较低。
二、排序法另一种常用的方法是通过对数字进行排序来找到最大或最小数字。
我们可以使用内置的排序算法，如快速排序或归并排序，将数字从小到大或从大到小排序，然后返回列表中的第一个数字或最后一个数字即可。
例如，给定一个数字列表[3, 8, 2, 5, 1]，我们可以使用排序法来找到最大数字：```pythonnumbers = [3, 8, 2, 5, 1]numbers.sort()largest_number = numbers[-1]print("最大数字为：" + str(largest_number))```以上代码中，我们首先使用sort()方法对数字列表进行排序，然后获取列表中的最后一个数字作为最大数字。
VBA典型试题 及答案
1、编写程序，随机生成20个两位整数，并统计出其中小于等于60、大于60小于等于80及大于80的数据以及相应个数，结果打印输出到窗体。
Private Sub Form_Click()For i = 1 To 20a = Fix(Rnd() * 91 + 10)If a <= 60 Thenx = x & a & " "b = b + 1End IfIf a > 60 And b <= 80 Theny = y & a & " "c = c + 1End IfIf a > 80 Thenz = z & a & " "d = d + 1End IfNext iPrint "小于等于60的个数：" & b & "个," & xPrint "大于60小于等于80的个数：" & c & "个," & yPrint "大于80的个数：" & d & "个," & zEnd Sub2、编写程序：利用随机函数产生10个（59，142）范围内的随机整数，显示它们当中的最大值、最小值和平均值。
Private Sub Form_Click()Max = 60Min = 141For i = 1 To 10a = Fix(Rnd * 82 + 60)Sum = Sum + aIf a > Max Then Max = aIf a < Min Then Min = aPrint a;Next iPrintPrint "最大值：" & MaxPrint "最小值：" & MinPrint "平均值：" & Sum / 10End Sub3、编写程序，随机生成15个三位正整数,区间范围是(123,915]，将其中的偶数与奇数分别输出到两个文本框中，并计算出奇数和偶数之和，用消息框输出结果。
VB编写猜数字小游戏教程
VB编写猜数字小游戏傻瓜教程本人原创，只在百度文库发布，希望对想学习VB的朋友有所帮助，提高学习VB的兴趣。
本文以VB6为例介绍编写一个最简单的猜数字小游戏过程，VB6在百度上很容易搜索到，本文所需要控件极少，安装一个大小只有6MB的VB6精简版就可以体验了。
不敢说“抛砖引玉”，只怕抛个小砖换来个板儿砖。
总之，本文重点不是从零开始学VB，主要是介绍编写这个小游戏的过程。
首先，启动VB，然后点击文件菜单，点击新建一个工程，即可出现如下界面。
按照下图红色箭头的指向，鼠标在左侧工具条上拖一个文本标签、一个文本输入框、一个按钮到工程界面里边来，然后调整大小和位置大概跟下图比例差不多就行了。
接着，点击label标签，在右边属性窗口里调整字体大小为三号字，因为默认的字体太小了，不爽。
什么？三号字还小？那你自己看着办吧，但我可要告诉你哦，等下显示的内容超出显示区域可别怪我。
改好了吗？本次编程就这三个控件，菜吧？现在双击工程界面的空白区域，不要点在控件上了哦。
双击空白区域后，就弹出了代码编写窗口。
按照下图把代码一个一个给我打上去。
都好几分钟了，打上去了吗？哦，忘了告诉你，复制下面的代码也是一样的。
代码：Dim cai As Integer '定义一个变量用来存储欲猜的数字Private Sub Form_Load()Randomize '重设随机因子Label1.Caption = "请填入你猜测的数字" '让label1显示为空Text1.Text = "" '让text1文本显示为空Command1.Caption = "确定" '让command1显示为"确定"cai = Int(Rnd * 899) + 100 '随机选择一个三位数作为欲猜的数字End Sub以上代码都做了注释，就不需要过多说明了。
VB生成不重复的随机数
For i = 1 To 10
A(i) = i
Next
For i = 1 To 10 '数组打乱
t = A(i)
k = Fix(Rnd * 10) + 1
A(i) = A(k)
A(k) = t
Next
For i = 1 To 8 '从M中随机取出N个数,不重复
B(i) = A(i)
Next
Label1.Caption = Join(B(), " , ")
p = 0: ps = 1
Do Until p >= n
i = CLng(Rnd * (MAX_N - p))
sTemp = CStr(Ary(i))
Mid$(s, ps, Len(sTemp)) = sTemp
Dimension(i) = Fix(Rnd * 10) + 1
GoTo A
End If
Next j
Next i
Label1.Caption = Join(Dimension(), " , ")
2.只需要得到10个无序排列的数字即可，没必要去一直产生随机数，只要打乱顺序即可。在数组a中加入10个数字，然后开始for循环10次，每次产生一个10以内的随机数，然后将循环次数i与随机数的位置互换。速度：n
'================================================================================================
VB编程题目及答案
1.输入3个数，输出最大的数2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！”4.输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
7.输入两个整数，求它们的最大公约数。
8.编程求200--400范围内5的倍数或7的倍数之和。
(一个数如果同时是7和5的倍数，则只能加一次。
9.计算100~300之间所有能被3和7整除的数之和10.分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
11.某次歌曲大奖赛，有7个评委。
如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
12.输入一串字符，统计其中字母A(不区分大小写)出现的次数。
13.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
14.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？15.求100以内的素数16.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。
17.编程求斐波那契数列前11项。
（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 ）18.将输入的字符串以反序显示。
例如：输入“ASDFGT”，显示“TGFDSA”19.随机产生10个[30,100]内的整数，求最大值及所对应的下标20.随机产生10个[30,100]内的整数，求最大值、最小值和平均值。
用VB编写猜数游戏
任务：用VB编写猜数游戏1、启动VB，新建一个“标准EXE”工程；2、适当调整Form1的大小；3、添加4个CommandButton，排列位置和大小如图所示，根据红色文字更改名称；4、添加3个Label，排列位置和大小如图所示，根据红色文字更改名称，更改Caption属性；5、添加2个Text，排列位置和大小如图所示，根据红色字体更改名称，将Caption设为空白；双击Form1，输入以下代码Private Sub Command1_Click()Dim a As IntegerRandomize '初始化随机种子a = Int(20 * Rnd + 1) '随机产生一个100以内的整数Text1.Text = a '把随机数的值赋给文本框1.End SubPrivate Sub Command2_Click()Text1.Visible = TrueEnd SubPrivate Sub Command3_Click()Dim a, b As Integera = Text1.Text '获取系统产生的随机数,并赋给变量ab = Text2.Text '把用户输入的值赋给变量bIf b = a Then Label3.Caption = "恭喜你,你猜对了!你可以点击查看随机数按钮"If b > a Then Label3.Caption = "猜大了,改小点,再试试"If b < a Then Label3.Caption = "猜小了,改大点,再试试"End SubPrivate Sub Command4_Click()Text1.Visible = FalseEnd Sub最后，点击运行，测试程序是否能成功运行。
然后在桌面用自己的姓名新建一个文件夹，将工程保存到这个文件夹内，并提交到教师机FTP相关文件夹处。
vb课后练习答案习题解答 (5).
第5章数组与记录5.1 填空题1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为(。
答案:Dim s(1 To 10 As String2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为(。
答案:Dim a(0 To 5,-3 To 6 As Integer3.如果数组元素的下标值为实数,则VB系统会按(进行处理。
答案:四舍五入原则4.数组元素个数可以改变的数组称为(;数组元素可以存放不同类型数据的数组称为(。
答案:可调数组、可变类型数组5.数组刷新语句用于(。
若被刷新的数组是数值数组,则把所有元素置(;若被刷新的数组为字符串数组,则把所有元素置(。
答案:清除指定数组内容、0、空字符串10.控件数组是由一组类型和(相同的控件组成,共享(。
答案:名字、同一个事件过程11.控件数组中的每一个控件都有唯一的下标,下标值由(属性指定。
答案:Index12.建立控件数组有两种方法:(和(。
答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法5.2 选择题1.下列一维数组说明语句错误的是(。
a Dim b(100 AS Doubleb Dim b(-5 To 0 AS Bytec Dim b(-10 To –20 AS Integerd Dim b(5 To 5 AS String答案:c2.若有数组说明语句为:Dim a(-3 To 8,则数组a包含元素的个数是(。
a 5b 8c 11d 12答案:d3.设有数组说明语句:Dim c(1 To 10,则下面表示数组c的元素选项中(是错误的。
a c(i-1b c(5+0.5c c(0d c(10答案:c4.下列数组说明语句中正确的是(。
a Dim a(-1 To 5,8AS Stringb Dim a(n,nAS Integerc Dim a(0 To 8,5 To –1AS Singled Dim a(10,-10AS Double答案:a5.设有数组说明语句:Dim b(-1To2,-2To2,则数组b中元素的个数是(。
国家二级VB机试(数据类型及运算)模拟试卷25
国家二级VB机试（数据类型及运算）模拟试卷25(总分：68.00，做题时间：90分钟)一、选择题(总题数：34，分数：68.00)1.执行以下程序段aS=”Visual Basic Programming”：b$=”C++”c$：UCase(LeR$(a$，7))&b$&RightS(aS，12) 变量c$的值为（分数：2.00）A.Visual BASIC ProgrammingB.VISUAL C++Programming √C.Visual C++ProgrammingD.VISUAL BASIC Programming解析：解析：本题考查的考点是有关取子串函数的。
在VB中有3种取子串函数：Left函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。
UCase函数用于把字符串转换成大写表示。
2.可以产生30~50(含30和50)之间的随机整数的表达式是（分数：2.00）A.Int(Rnd*21+30) √B.Int(Rnd*20+30)C.Int(Rnd*50．Rnd*30)D.Int(Rnd*30+50)解析：解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。
为了生成某个指定范围内的随机整数，可使用以下公式： Int((upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。
本题中upperbound为50，lowerbound为30。
3.能够产生1到50之间(含1和50)随机整数的表达式是（分数：2.00）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1) √解析：解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。
vb选择排序和冒泡排序的代码
vb选择排序和冒泡排序的代码在计算机科学和程序设计语言中，选择排序和冒泡排序是两个最基本、最常用的排序算法。
虽然它们不一定是最有效率的排序算法，但它们非常简单易懂，适合初学者使用和理解。
下面我们将分步骤介绍VB选择排序和冒泡排序的代码。
VB选择排序：步骤1：定义一个数组，用于存放需要排序的元素。
Dim arr(10) As Integer步骤2：输入数据。
For i = 1 To 10arr(i) = Val(InputBox("Please enter a number"))Next步骤3：定义一个选择排序的函数。
Sub selectionSort(ByVal arr As Variant)Dim i As IntegerDim j As IntegerDim minIndex As IntegerDim temp As IntegerFor i = 1 To UBound(arr) - 1minIndex = iFor j = i + 1 To UBound(arr)If arr(j) < arr(minIndex) ThenminIndex = jEnd IfNexttemp = arr(i)arr(i) = arr(minIndex)arr(minIndex) = tempNextEnd Sub步骤4：调用选择排序函数。
selectionSort arr步骤5：输出排序后的数据。
For i = 1 To 10Print arr(i)NextVB冒泡排序：步骤1：定义一个数组，用于存放需要排序的元素。
Dim arr(10) As Integer步骤2：输入数据。
For i = 1 To 10arr(i) = Val(InputBox("Please enter a number")) Next步骤3：定义一个冒泡排序的函数。
Sub bubbleSort(ByVal arr As Variant)Dim i As IntegerDim j As IntegerDim temp As IntegerFor i = UBound(arr) To 2 Step -1For j = 1 To i - 1If arr(j) > arr(j + 1) Thentemp = arr(j)arr(j) = arr(j + 1)arr(j + 1) = tempEnd IfNextNextEnd Sub步骤4：调用冒泡排序函数。
vb经典Microsoft Word 文档
1统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和Option ExplicitPrivate Sub Form_Click()Dim x As Integer, s1 As Integer, s2 As IntegerDim n1 As Integer, n2 As Integer, i As IntegerRandomizeFor i = 1 To 10_x=int(90*rnd)+10__Print x；If _ x mod 2=0 Thenn2 = n2 + 1s2 = s2 + xElse___n1=n1+1_s1 = s1 + xEnd IfNext iPrintPrint "奇数个数＝"; n1; "偶数个数＝"; n2;End Sub2.从字符串中分离数字和字母Private Sub Command1_Click()Dim s As String, i As IntegerConst ch As String = “0123456789.”s = "2L0A09U.0SI3V.24"For i = 1 To Len(s)If InStr(ch, Mid(s, i, 1)) = 0 Thenst1 = Mid(s, i, 1) & st1Elsest2 = st2 & Mid(s, i, 1)End IfNext iPrint st1: Print st2End Sub3.统计字符串中“O”的个数Private Sub Command1_Click()a = "THERE IS A BOOK ON THE DESK"m = len(a)For i = 1 To mb =mid(a,i,1)If b = "O" Then num=num+1Next iPrint numEnd Sub4.从给定的字符串中只分离出数字Private Sub Command1_Click()Dim s As String, t As StringDim i As Integers = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= 9 Thent = t & Mid(s, i, 1)End IfNext iText2.Text = tEnd Sub5.将正整数转化成二进制数Private Sub Command1_Click()Dim n As Long, t As Stringn = Val(Text1.Text)Dot = n Mod 2 & tn = n \ 2Loop Until n = 0Text2.Text = tEnd Sub5—1将正整数转化成16进制Private Sub Command1_Click()Dim n As Long, t As String, g As Stringn = Val(Text1.Text)Dog = n Mod 16If Val(g) > 9 Theng = Chr(55 + Val(g))End Ift = g & tn = n \ 16Loop Until n = 0Text2.Text = tEnd Sub5--3将正整数转化成8进制Private Sub Command1_Click()Dim n As Long, t As Stringn = Val(Text1.Text)Dot = n Mod 8 & tn = n \ 8Loop Until n = 0Text2.Text = tEnd Sub6.找出100以内的所有勾股数（不包括100）Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, n As IntegerFor a = 1 To 99For b = 1 To 99For c = 1 To 99If a ^ 2 + b ^ 2 = c ^ 2 And a <> b Thenn = n + 1Print a; b; c; “; “;If n Mod 5 = 0 ThenPrintEnd IfEnd IfNext cNext bNext aPrint nEnd Sub7.找出三位数字中的所有升序数（各位数字>十位数字>百位数字）Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, n As IntegerFor a = 1 To 9For b = 1 To 9For c = 1 To 9If a < b And b < c Thenn = n + 1Print a * 100 + b * 10 + c;If n Mod 10 = 0 Then '控制每行打印10个PrintEnd IfEnd IfNext cNext bNext aPrint nEnd Sub或Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer, js As Integer For n = 100 To 999a1 = n \ 100 ‘取出百位数字a2 = n \ 10 Mod 10 ‘取出十位数字a3 = n Mod 10 ‘取出个位数字If a1 < a2 And a2 < a3 Thenjs = js + 1Print n;If js Mod 10 = 0 ThenPrintEnd IfEnd IfNext nPrint jsEnd Sub利用过程调用思想求升序数例找出a-b范围内的所有升序数,a>=100,b<=30000Private sub command1_click()Dim a as integer,b as integer,i as integera=text1:b=text2For i=a to bIf sx(i) thenList1.additem iEnd ifNext iEnd subPrivate sub function sx(byval n as integer) as booleanDim a() as integer,k as integer,i as integerDoK=k+1Redim preserve a(k)a(k)=n mod 10n=n\10loop until n<=0for i=1 to ubound(a)-1if a(i+1)>=a(i) then exit function （应该去判断a(1)>a(2)……a(k)但是不好判断，遇难则反，只要有一个a(i+1)>=a(i)这不是升序数）next isx=trueend function8.最小公倍数Private Sub Form_Click()Dim m%, n%, tem%m = Val(Text1.Text)n = Val(Text2.Text)tem = mDo While tem Mod n <> 0tem = tem + mLoopPrint m; "和"; n; "的最小公倍数是:"; temEnd Sub9.求一维数组a（n）各元素的和：Dim s as integer , I as intgers=0for i=1 to ns=s+a(i)next i10.求二维数组a（n，m）各元素的和Dim s as integer, i as integer, j as integers=0For i=1 to nfor j=1 to ms=s+a(i,j)next jNext i11. 求二维数组a(m,n)周边元素的和Dim s as integer, i as integerS=0For i=1 to ns=s+a(1,i)+a(m,i) (求第一行与最后一行的和)Next ifor i=2 to m-1s=s+a(i,1)+a(i,n) （求第二行到倒数第二行第一列与最后一列的和）Next i12.求二维数组a（n，n）主对角线元素的和(理解主对角线)Dim s as integer,i as integerS=0For i=1 to ns=s+ a (i,i)Next i13.求二维数组a（n，n）次对角线元素的Dim a as integer, i as integerS=0For i=1 to ns=s+a(i,n+1-i)Next i14三种排序法（1）选择排序法是逐个比较,逆序交换;冒泡法是两两比较,逆序交换.（2）直接排序法(以降序为例)特点：比较后不立即互换元素，而是记下较大值的位置,并在每一轮比较完毕后和Ｓ（ｉ）互换选择排序法（比较排序法）基本过程（以降序为例）：将第一个元素顺序与其后面的元素比较，比第一个大则进行交换，第一轮完毕后，最大的元素被挪到了第一个位置，第二轮从第二个元素开始重复上面的过程，结束后得到第二个最大的元素，如此下去经过N-1 轮的比较，可将N 个数排好（3）冒泡法排序（以升序为例），则方法为：将相邻两个数比较，把小数对调到前边，如此进行一轮后，就会把最大的数互换到最后，再进行一次，则会把第二大数排在倒数第二的位置上，进行Ｎ－１次后，整个数列即可排好．在这种排序过程中，小数如同气泡一样逐层上浮，而大数逐个下沉，因此，被形象的喻为“冒泡”．选择法对数组经行降序排列Option explicitOption base 1Private sub command1_click()Dim sort(10) as integer, temp as integer , i as integer, j as integerFor i=1 to 10Sort(i)=int(rnd*99)+1Text1=text1 & str(sort(i))Next iFor i= 1 to 9For j=i+1 to 10If sort(i)<sort(j) thenTemp=a(i)a(i)=a(j)a(j)=tempend ifnext jtext2=text2 & str(sort(i))next itext2=text2 & str(sort(i))end sub直接排序法的精髓（降序）For i=1 to N-1pointer=I…初始化pointer,在每轮比较开始处for j=I+1 to Nif Sort(pointer)< Sort(j) then pointer= jnext jif I<> pointer thentemp=Sort(i) ‘交换Sort(i)=Sort(pointer)Sort(pointer)=tempend ifNext I冒泡排序法的精髓（升序）For i=1 to N-1for j=1 to N-i …比较次数逐次减少if S(j) > S(j+1) thent=S(j)S(j)=S(j+1)S(j+1)=t ‘立即互换end ifnext jnext i15.求最大公约数的通用过程发16.求三个数的最小公倍数Option ExplicitPrivate Sub Command1_Click()Dim A As Integer, B As IntegerDim L As Long, C As IntegerA = Text1B = Text2C = Text3L = LCM(LCM(A, B), C)Text4 = LEnd SubPrivate Function LCM(ByVal X As Integer, ByVal Y As Integer) Dim M As Long, Flg As BooleanFlg = FalseDo Until FlgM = M + XIf M Mod Y = 0 ThenFlg = TrueEnd IfLoopLCM = MEnd Function17.打印九九乘法表Private sub form_clickDim I as integer, j as integerFor i=1 to 9For j=1 to iPrint j;”*”I;”=”i*j;Next jprintNext iEnd sub18判断完数（一个数如果恰好等于他所有因子之和，这个数就是完数。
vb编程代码
编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。
代码Private Sub Command1_Click()Dim x As Integer, i As Integer Dim cnt1 As Integer, cnt2 As Integer, cnt3 As Integercnt1 = 0: cnt2 = 0: cnt3 = 0 RandomizeFor i = 1 To 100x = Int(Rnd * 90 + 10) If x <= 40 Then cnt1 = cnt1 + 1 ElseIf x < 70 Then cnt2 = cnt2 + 1 Elsecnt3 = cnt3 + 1 End If Next iPrint cnt1, cnt2, cnt3 End Sub编写程序，单击窗体时在窗体上输出如下所示的图形。
代码Private Sub Form_Click()Dim i As Integer, begin As Integer begin = 5For i = 1 To 5Print Tab(begin);For j = 1 To 2 * i - 1 Print "*"; Next j Printbegin = begin - 1 Next i begin = 2For i = 4 To 1 Step -1 Print Tab(begin);or j = 1 To 2 * i - 1 Print "*"; Next j Printbegin = begin + 1 Next i End Sub计算二的n 次幂 代码Private Sub Command1_Click()Dim n As Integer, mi As Double Dim i As Integern = Int(Val(InputBox(""))) mi = 1For i = 1 To n mi = mi * 2 Next iPrint " 2 的"; n; "次幂为："; mi End Sub编写程序，计算并输出下面级数前n 项(n=80)的部分和。
使用VBA生成随机数的方法总结
使用VBA生成随机数的方法总结VBA（Visual Basic for Applications）是一种用于自动化任务和定制Microsoft Office应用程序的编程语言。
在VBA中，生成随机数是一个常见的需求，无论是用于模拟数据还是在编程过程中需要随机性。
本文将总结使用VBA生成随机数的几种常见方法。
方法一：使用Rnd函数Rnd函数是VBA中最常见的生成随机数的方法之一。
该函数返回一个0到1之间的随机数。
可以通过改变种子数来生成不同的随机数序列。
```' 生成0到1之间的随机数Dim randomNum As DoublerandomNum = Rnd```如果想要生成不同范围内的随机数，可以使用Rnd函数结合其他数学函数来实现。
```' 生成0到n之间的随机整数Dim randomInt As IntegerrandomInt = Int(n * Rnd)' 生成a到b之间的随机整数Dim randomInt As IntegerrandomInt = a + Int((b - a + 1) * Rnd)' 生成a到b之间的随机小数Dim randomNum As DoublerandomNum = a + (b - a) * Rnd```需要注意的是，Rnd函数生成的随机数是伪随机数，也就是说每次运行代码得到的结果相同。
如果想要每次生成不同的随机数，可以在代码中使用`Randomize`语句来改变种子数。
```' 每次生成不同的随机数Randomize```方法二：使用Randomize和Timer函数Randomize函数可以改变Rnd函数生成随机数的种子数。
结合Timer函数，可以实现每次运行代码时生成不同的随机数。
```' 生成不同的随机数Randomize Timer```在使用Randomize和Timer函数时，需要注意Timer函数返回的是时间的小数部分，因此可以保证每次运行代码生成的随机数序列都不同。
教你在VB中如何生成随机数
教你在VB中如何⽣成随机数本⽂和⼤家⼀起学习VB中如何⽣成随机数。
⾸先我们来认识⼀下要⽤到的函数和语句：Rnd 函数功能：返回⼀个包含随机数值的 Single。
功能：语法Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。
返回值如果 number 的值是 Rnd ⽣成⼩于 0 每次都使⽤ number 作为随机数种⼦得到的相同结果。
⼤于 0 序列中的下⼀个随机数。
等于 0 最近⽣成的数。
省略序列中的下⼀个随机数。
说明Rnd 函数返回⼩于 1 但⼤于或等于 0 的值。
number 的值决定了 Rnd ⽣成随机数的⽅式。
对最初给定的种⼦都会⽣成相同的数列，因为每⼀次调⽤ Rnd 函数都⽤数列中的前⼀个数作为下⼀个数的种⼦。
在调⽤ Rnd 之前，先使⽤⽆参数的 Randomize 语句初始化随机数⽣成器，该⽣成器具有根据系统计时器得到的种⼦。
为了⽣成某个范围内的随机整数，可使⽤以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这⾥，upperbound 是随机数范围的上限，⽽ lowerbound 则是随机数范围的下限。
注意：若想得到重复的随机数序列，在使⽤具有数值参数的 Randomize 之前直接调⽤具有负参数值的 Rnd。
使⽤具有同样注意：number 值的 Randomize 是不会得到重复的随机数序列的。
Randomize 语句功能：初始化随机数⽣成器。
功能：语法Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。
说明Randomize ⽤ number 将 Rnd 函数的随机数⽣成器初始化，该随机数⽣成器给 number ⼀个新的种⼦值。
如果省略number，则⽤系统计时器Timer返回的值作为新的种⼦值。
如果没有使⽤ Randomize，则（⽆参数的）Rnd 函数使⽤第⼀次调⽤ Rnd 函数的种⼦值。
如何使用vba编制最大值和最小值的程序？认识简单算法思想！
如何使⽤vba编制最⼤值和最⼩值的程序？认识简单算法思想！如何实现找出⼀组数字中的最⼤值或者最⼩值
不调⽤编制好的函数⽽是利⽤算法⾃⼰编写
算法描述：
1、假定第⼀个数字为最⼤值或者最⼩值
2、将第⼀个数与后⾯的数字⼀⼀⽐较，如果第⼀个数字⽐其他数字⼤（求最⼩值）或⼩（求最
⼤值）就把两个数字换位。
3、循环⽐较⾄最后⼀个数字⽐较完成
求最⼩值
Sub smal()
Dim a
Dim c
c = Range(''a1'').CurrentRegion.Rows.Count''获取数据的⾏数
For i = 1 To c
If Cells(1, 1) > Cells(i, 1) Then''条件判断
a = Cells(1, 1)
Cells(1, 1) = Cells(i, 1)''对换位置
Cells(i, 1) = a
End If
Next
Cells(1, 3) = Cells(1, 1)''把最⼩值放⼊C1显⽰
End Sub
求最⼤值
Sub maxs()
Dim a
Dim c
c = Range(''a1'').CurrentRegion.Rows.Count
For i = 1 To c
If Cells(1, 1) < cells(i,="" 1)="">
a = Cells(1, 1)
Cells(1, 1) = Cells(i, 1)
Cells(i, 1) = a
End If。
vb中随机数生成方法
vb中随机数生成方法在VB中，生成随机数是一项非常常见的任务。
随机数可以用于许多不同的应用程序，例如游戏、密码生成器、模拟器等等。
在VB 中，生成随机数的方法有很多种，本文将介绍其中的几种方法。
方法一：使用Rnd函数Rnd函数是VB中生成随机数的最基本方法。
它可以生成一个0到1之间的随机数。
如果需要生成一个整数，可以将Rnd函数的结果乘以一个大于等于1的整数，然后使用Int函数将结果转换为整数。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerrandomNum = Int((10 * Rnd) + 1)方法二：使用Randomize函数Randomize函数可以用于初始化随机数生成器。
如果不使用Randomize函数，每次生成的随机数序列都是相同的。
使用Randomize函数可以使每次生成的随机数序列都不同。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerRandomizerandomNum = Int((10 * Rnd) + 1)方法三：使用GetTickCount函数GetTickCount函数可以返回自系统启动以来经过的毫秒数。
可以使用这个函数来生成一个随机数种子。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerRandomize GetTickCountrandomNum = Int((10 * Rnd) + 1)方法四：使用Cryptographic Service ProviderCryptographic Service Provider是Windows操作系统中的一个加密服务提供程序。
它可以用于生成高质量的随机数。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerDim provider As New System.Security.Cryptography.RNGCryptoServiceProviderDim byteArray(3) As Byteprovider.GetBytes(byteArray)randomNum = (BitConverter.ToInt32(byteArray, 0) Mod 10) + 1总结以上是VB中生成随机数的几种方法。
2021年郑州大学VB模拟题5
B、8
C、10
D、14
35、InputBox函数返回值的类型为______。（1分）
A、数值
B、字符串
C、变体
D、数值或字符串
36、设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是______。（1分）
A、TestDate = #1/1/2002#
1、已知x=2, y=9, z=－4，逻辑表达式x>y OR z>x AND NOT z>y的值是______。（1分）
A、True
B、-1
C、0
D、False
2、Print Format(1234.234, "###.#####"); Format(1234.234, "########.##")的显示结果是______。（1分）
A、窗体1
B、工程
C、窗体
D、工程1
13、下列叙述中，正确的是______。（1分）
A、工程文件（.vbp）应用程序可以在任何计算机上运行
B、打开一个工程文件，系统自动装入与该工程有关的窗体文件
C、VB工程文件中可以没有窗体文件
D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可
B、在设计阶段放置的控件
C、在运行阶段产生的图形和文字
D、以上全部内容
16、比较两个数中较大的数的程序段，错误的是______。（1分）
A、IF x >y Then max=x Else max=y
B、max=IIF(x>y , x, y)
C、IF x >y Then max=x : max=y
vb最大值代码
vb最大值代码VB最大值代码在VB中，我们经常需要找到一组数据中的最大值。
这时候，我们可以使用VB的内置函数来实现。
下面，我将介绍两种方法来找到一组数据中的最大值。
方法一：使用VB的内置函数VB提供了一个内置函数Max，可以用来找到一组数据中的最大值。
这个函数的语法如下：Max(Expr1, Expr2, ...)其中，Expr1、Expr2等表示要比较的数据。
这些数据可以是数字、日期、字符串等类型的数据。
Max函数会返回这些数据中的最大值。
下面是一个示例代码，演示如何使用Max函数来找到一组数据中的最大值：Dim arr(5) As Integerarr(0) = 10arr(1) = 20arr(2) = 30arr(3) = 40arr(4) = 50Dim maxVal As IntegermaxVal = Max(arr(0), arr(1), arr(2), arr(3), arr(4))MsgBox "最大值为：" & maxVal在这个示例代码中，我们定义了一个数组arr，其中包含了5个整数。
然后，我们使用Max函数来找到这些整数中的最大值，并将结果存储在变量maxVal中。
最后，我们使用MsgBox函数来显示最大值。
方法二：使用循环来找到最大值除了使用Max函数外，我们还可以使用循环来找到一组数据中的最大值。
下面是一个示例代码，演示如何使用循环来找到一组数据中的最大值：Dim arr(5) As Integerarr(0) = 10arr(1) = 20arr(2) = 30arr(3) = 40arr(4) = 50Dim maxVal As IntegermaxVal = arr(0)For i = 1 To 4If arr(i) > maxVal ThenmaxVal = arr(i)End IfNext iMsgBox "最大值为：" & maxVal在这个示例代码中，我们同样定义了一个数组arr，其中包含了5个整数。
VB生成不重复的随机数
VB生成不重复的随机数VB生成不重复的随机数我的建议是:第一步、先做一个数组,存上这35个数(可以不是连续的数,也可以是人名、字符串什么的);第二步、随机生成一个1-35之间的数,输出;第三步:把这个数和数组的第一个单元交换;第四步、从数组的第2-35之间随机抽取第二个数,输出;第五步、把这随机抽取的第二个数和数组的第二个单元内容呼唤;第六步、随机抽取第三个数,输出。
重复到从第35-35个数之间随机抽取一个数,这时直接输出最后一个就行了。
程序如下(VB6):工程里默认的窗体上,画一个Command1,粘贴程序:option explicitprivate vArray(1 to 35) as currency '定义数组个数private sub command1_click()testend subprivate sub InitArray()dim i as long'给数组赋值for i=1 to 35varray(i)=inext iend subprivate sub Test()dim iStart as longdim iPos as longdim vTemp as currencydim sReturn as stringInitArrayrandomize timer '设置随机因子,使其每次运行程序的随机数都不一样iStart=1doiPos=int(rnd*(ubound(vArray)-iStart+1))+iStart '产生iStart到35(35取自vArray 的上标)之间的整数sReturn=sReturn & vArray(iPos) & vbcrlf '输出'交换单元内容vTemp=vArray(iStart)vArray(iStart)=vArray(iPos)vArray(iPos)=vTempiStart=iStart+1 '下次随机生成时,少生成一个if iStart>=ubound(vArray) then'最后一个了,直接输出sReturn=sReturn & vArray(ubound(vArray))Exit Doend ifif iStart>7 then exit do '如果需要生成几个数,就把7改成几,大于数组元素的个数,将输出速度的元素个数(这个例子是35)Loopmsgbox sReturn 'msgbox 输出结果end sub'================================================================ =============================='方法二Private Sub Command1_Click()Dim a(35) As IntegerFor i = 0 To 35way1:Randomizea(i) = Int(Rnd() * 36) + 1If i > 1 ThenFor p = 0 To i - 1If a(p) = a(i) Then '‘与前面的对比,如果有重复,重新随机GoTo way1End IfNext pEnd IfPrint a(i); '打印Next iPrint "" '打印End Sub'================================================================ =========================='方法三如果楼主是要产生0-9等10个不重复的随机数的话,在随机数范围和个数相等的情况下,楼上的方法都无异于散弹打鸟。