当前位置：文档之家 › 516作坊VB大题

516作坊VB大题

  • 格式：doc
  • 大小：221.50 KB
  • 文档页数：9

1， 随机产生20个数最高低分和平均分 Private Sub Command1_Click() Dim i%, j%, s(2) As Integer, mark(20) As Integer, min%, max%, ave! For i = 1 To 20 mark(i) = Int(Rnd * 101) Print mark(i) Next i min = mark(1): max = mark(1): ave = mark(1) For i = 2 To 20 If mark(i) > max Then max = mark(i) If mark(i) < min Then min = mark(i) ave = ave + mark(i) Next i Print Print "max="; max, "min"; min, "ave="; ave / 20 For i = 1 To 20 j = mark(i) \ 10 Select Case j Case 0 To 5 s(0) = s(0) + 1 Case 6 To 8 s(1) = s(1) + 1 Case 9 To 10 s(2) = s(2) + 1 End Select Next i Print "不及格人数", s(0), "一般", s(1), "优秀人数", s(2) End Sub 2， 改变字体加粗，下划线 ，斜体，粗体，删除线 Private Sub Command1_Click() Dim n@ Text1.Text = InputBox("shuru") End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 Text1.Text = UCase(Text1.Text) Case 1 Text1.Font.Italic = Not Text1.Font.Italic Case 2 Text1.Font.Bold = Not Text1.Font.Bold Case 3 Text1.Font.Underline = Not Text1.Font.Underline Case 4 Text1.Font.Strikethrough = Not Text1.Font.Strikethrough End Select End Sub 3， 字符串反向显示 Private Sub Command1_Click() Dim str, strRe As String Dim i As Integer str = Text1.Text For i = 1 To Len(str) strRe = Mid(str, i, 1) & strRe Next i Text2.Text = strRe End Sub 4， 求最大公约数 Dim a!,b!,r! A= inputbox(“”) B= inputbox(“”) If A>B then M=a N=b Else M=b N=a Endif Do R=m mod n M=n N=r Loop while r<>0 ? m 5， 水仙花数 A=100 Do while a<=999 I=a mod 10 J=(a mod 100) \10 K=a\100 If i^3+j^3+k^3=a then ?a Endif A=a+1 Loop 6， 两个随机数之和 Private Sub Command1_Click() Dim a%, b%, c% a = Int(91 * Rnd + 10) b = Int(91 * Rnd + 10) c = a + b Print a; "+"; b; "="; c End Sub 7，素数 Private Sub Form_Click() Dim i%, j%, k% Dim flag As Boolean For i = 2 To 10000 flag = True For j = 2 To i - 1 If i Mod j = 0 Then flag = False Next j If flag Then Print i Next i End Sub 8，判断是否为素数 Private Sub Form_click() Dim x%, flag As Boolean, n% x = InputBox("请输入") flag = True n = 2 For i = 2 To x - 1 If x Mod i = 0 Then flag = False Next i If flag Then Print x; "素数" Else Print x; "不是" End If End Sub 9，莲花数 Private Sub Form_Click() Dim a%, b%, c% Dim i% For i = 100 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i End If Next i End Sub 10，勾股数 Private Sub Command1_Click() Dim a%, b%, c% For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If a ^ 2 + b ^ 2 = c ^ 2 Then Print a, b, c Next c Next b Next a End Sub 11，调换一个两位数的个位于十位数 Private Sub Command1_Click() Dim x% x = InputBox("shuru") a = Int(x / 10) b = x Mod 10 c = b * 10 + a Print "二位数为"; x; "处理后的数为"; c End Sub 12，5人平均成绩 Private Sub Form_Load() Dim d(5) As Integer Dim i%, total%, average! Show For i = 1 To 5 d(i) = Val(InputBox("")) Next i total = 0 For i = 1 To 5 total = total + d(i) Next i average = total / 10 Print "总分="; total Print "平均分="; Format(average, "##.0") End Sub 13，调换一个3位数 Private Sub Command1_Click() Dim x% x = Val(InputBox("shuru")) a = Int(x / 100) b = (x Mod 100) \ 10 c = x Mod 100 Mod 10 y = 100 * c + 10 * b + a Print y End Sub 14.求3个数的最大值 Private Sub Command1_Click() Dim a%, b%, c% a = Val(InputBox("shuru")) b = Val(InputBox("shuru")) c = Val(InputBox("shuru")) m = a If b > m Then m = b If c > m Then m = c Print a; b; c; "zuidashu"; m End Sub 15.随即排列10个随机数 Dim A(1 To 10) As Integer Private Sub Command1_Click() Dim str1 As String Randomize For i = 1 To 10 A(i) = Int(Rnd * 100) str1 = str1 & A(i) & Space(2) Next i Text1.Text = str1

End Sub Private Sub Command2_Click() For i = 1 To 9 Min = i For j = i + 1 To 10 If A(j) < A(Min) Then Min = j Next j t = A(i): A(i) = A(Min): A(Min) = t Next i Dim str1 As String For i = 1 To 10 str1 = str1 & A(i) & Space(2) Next i Text2.Text = str1 End Sub 16.输入3个数求最大值 Private Sub Command1_Click() Dim a!, b!, c!, max! a = InputBox("请输入第1个数：") b = InputBox("请输入第2个数：") c = InputBox("请输入第3个数：") max = a If b > max Then max = b If c > max Then max = c Print max End Sub

Private Sub Command2_Click() End End Sub 17.倒三角“*”

Private Sub Command1_Click() Dim i%, j%, n% For i = 7 To 1 Step -1 Print Spc(8 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i End Sub 18..三角形如左图

Private Sub Command1_Click() Dim i%, j%, n% n = InputBox("输入", 0) For i = 1 To 9 Print Spc(10 - i); For j = 1 To 2 * i - 1 Print Chr(48 + i); Next j Print Next i End Sub 19..9*9乘法口诀

Private Sub command1_Click() For i = 1 To 9 For j = 1 To i Print Tab((j - 1) * 9 + 1); i & "*" & j & "=" & i * j; Next j Print Next i End Sub 20.数字三角形如图

Private Sub Command1_Click() For i = 1 To 4 Print Spc(16 - 3 * i); For j = 1 To 2 * i - 1 Print j; Next j Print Next i End Sub 21 .数字三角形如下图

合集下载

Visual Basic程序设计期末复习试题(A)含答案

Visual Basic程序设计期末复习试题(A)含答案

8.在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
VB编程题目及答案【VIP专享】

VB编程题目及答案【VIP专享】

对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，通系电1，力过根保管据护线0生高不产中仅工资22艺料22高试可中卷以资配解料置决试技吊卷术顶要是层求指配，机置对组不电在规气进范设行高备继中进电资行保料空护试载高卷与中问带资题负料22荷试，下卷而高总且中体可资配保料置障试时23卷，23调需各控要类试在管验最路；大习对限题设度到备内位进来。行确在调保管整机路使组敷其高设在中过正资程常料1工试中况卷，下安要与全加过，强度并看2工且55作尽22下可2都能护1可地关以缩于正小管常故路工障高作高中；中资对资料于料试继试卷电卷连保破接护坏管进范口行围处整，理核或高对者中定对资值某料，些试审异卷核常弯与高扁校中度对资固图料定纸试盒，卷位编工置写况.复进保杂行护设自层备动防与处腐装理跨置，接高尤地中其线资要弯料避曲试免半卷错径调误标试高方中等案资，，料要编5试求写、卷技重电保术要气护交设设装底备备4置。高调、动管中试电作线资高气，敷料中课并3设试资件且、技卷料中拒管术试试调绝路中验卷试动敷包方技作设含案术，技线以来术槽及避、系免管统不架启必等动要多方高项案中方；资式对料，整试为套卷解启突决动然高过停中程机语中。文高因电中此气资，课料电件试力中卷高管电中壁气资薄设料、备试接进卷口行保不调护严试装等工置问作调题并试，且技合进术理行，利过要用关求管运电线行力敷高保设中护技资装术料置。试做线卷到缆技准敷术确设指灵原导活则。。：对对在于于分调差线试动盒过保处程护，中装当高置不中高同资中电料资压试料回卷试路技卷交术调叉问试时题技，，术应作是采为指用调发金试电属人机隔员一板，变进需压行要器隔在组开事在处前发理掌生；握内同图部一纸故线资障槽料时内、，设需强备要电制进回造行路厂外须家部同出电时具源切高高断中中习资资题料料电试试源卷卷，试切线验除缆报从敷告而设与采完相用毕关高，技中要术资进资料行料试检，卷查并主和且要检了保测解护处现装理场置。设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
VB考试必备十道编程题VB考试必备的十道编程题

VB考试必备十道编程题VB考试必备的十道编程题

VB考试必备十道编程题VB考试必备的十道编程题DimmAInteger,nALong,ADoublen=1=0Form=1To10n=m某n=+1/nNe某tPrintEndSubDimmADouble,nALong,ADouble,pAInteger=0:n=-1:m=1:p=1DoWhile1/m>=0.0001m=m某pp=p+1n=-n=+n/mLoop=Format(,\PrintEndSub（3）裴波那契数列前两项是1、1，以后的每一项是其相邻前两项之和。

求数列前三十项的和FSMgBo某(FS)EndSuba=Chr(Int(97+26某Rnd))print(a)EndSub随机输出一个大写字母a=Chr(Int(65+26某rnd))Print(a)EndSubFori=0To10Ifa(i)Mod2=0Then=+a(i)EndIfNe某tPrint\所有偶数和为：\EndSub（6）如果一个三位数等于其各位数字的立方和，择成其为水仙花数。

输入一个三位数，判断是否属于水仙花数。

a=InputBo某(\请输入一个三位数！\i=a\\100j=a\\10Mod10k=aMod10Ifa=i^3+j^3+k^3ThenMgBo某(\EleMgBo某(\EndIfEndSuba=InputBo某(\请输入年份\IfaMod400=0OraMod4=0AndaMod100<>0ThenMgBo某(\EleMgBo某(\EndIfEndSubIfa+b>cAndb+c>aAnda+c>bThenp=(a+b+c)/2=Sqr(p某(p-a)某(p-b)某(p-c))MgBo某()EleMgBo某(\不能构成三角形\EndIfEndSubDima%,b%,c%,m%,n%,p%a=InputBo某(\b=InputBo某(\c=InputBo某(\Ifa>=bThenm=a:a=b:b=mEndIfIfa>=cThenn=a:a=c:c=nEndIfIfb>=cThenp=b:b=c:c=pEndIfPrint\EndSubc=(aMod100)\\10m=(aMod1000)\\100n=a\\1000Print\个位数是\十位数是\百位数是\千位数是\EndSub。

VB编程题目和答案

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. 输入两个整数，求它们的最大公约数。

& 编程求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（l）=l, F（n）=F（n-l）+F（n-2）n>=2 ）18. 将输入的字符串以反序显示。