当前位置：文档之家 › VB程序设计练习题

VB程序设计练习题

  • 格式：docx
  • 大小：15.89 KB
  • 文档页数：19

VB程序设计练习题目录文章目录前言内容一、明文密文转换。

二、大小写互相转换。

三、三角形的综合问题。

五、标签左右移动。

六、相邻数加起来为素数。

七、通项分母(累加).八、判断降序数。

九、产生数组，求最大数。

十、奇偶排序。

总结：前言这是我备考技能考的一些VB练习题。

（难度稍微有点大哦）想要更多VB练习题点击我的头像，看我发表我文章就可以看到了。

答案是边肖自己写的，可能有错误。

内容一、明文密文转换。

在上面的文本框中输入的英文字母（称为”明文")加密，加密结果（称为"密文")显示在下面的文本框中。

加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它们后面第n个字母（"z"后面的字母认为是"a"，"Z"后面的字母认为是"A"），如图所示。

答案：Private Sub Command1_Click()For i = 1 ToLen(Text1.Text)If Option1.Value = True Thena =Mid(Text1.Text, i, 1)b = Asc(a) + 1End IfIfOption2.Value = True Thena = Mid(Text1.Text, i, 1)b = Asc(a) + 3End IfIf Option3.Value = True Thena =Mid(Text1.Text, i, 1)b = Asc(a) + 5End IfIf b > 122 Thenb = b - 26End IfIf b > 90 And b < 97 Thenb = b - 26End IfText2.Text = Text2.Text & Chr(b)NextEnd Sub二、大小写互相转换。

如图所示创建界面（一个文本框，一个按钮），程序运行后，单击“转换”按钮，可以text1中的大写字母转换为小写，把小写字母转换为大写。

答案：Private Sub C1_Click()For i = 1 To Len(Text1.Text)a = Mid(Text1.Text, i,1) ‘一个一个选择text1中的字符For j = 97 To122If a = Chr(j)Then ‘判断是不是小写字母f =‘是的话f=0ExitFor‘并且要停止循环，不然会一直循环下去导致f=1。

Else‘否则f=1，也就是大写字母f = 1EndIfNextIf f = 0Then ‘如果是f=0（也就是字母为小写的情况）a =UCase(a)‘就转大写EndIf‘结束If f = 1Then‘如果f=1（也就是大写的情况）a =LCase(a)‘就转小写End Ifb = b &a‘全部a都赋值给bNextText1.Text =b ‘te xt1输出bEnd Sub三、三角形的综合问题。

根据给定的图形的三边的边长来判断图形的类型。

若为三角形则同时计算出何种三角形，及三角形的周长和面积。

要求完成”判断并计算”按钮的如下功能：1、判断输入的条件是否为三角形，若是三角形则在Text1中显示“是三角形”；在Text2中显示是何种三角形。

2、单击“清除重来”按钮可以将所有的显示框清空，且按钮本身变为不可选取状态。

当单击“判断并计算”之后重新恢复为可选状态。

提示:1。

三角形存在的条件是任意一边不为0，任意两边之和大于第三边。

2.若一边具有a^2+b^2=c^2，则为直角三角形；若所有边具有a^2+b^2>c^2,则为锐角三角形；若一边具有a^2+b^2<c^2,则为钝角三角形。

3、三角形的面积公式.已知三角形三边a,b,c，则（海伦公式）（p=(a+b+c)/2）S=sqrt[p(p-a)(p-b)(p-c)]答案：Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)Command2.Enabled = TrueIf a + b > c And a + c > b And c + b > a ThenText4.Text = "是三角形"ElseText4.Text = "不是三角形"End IfIf Text4.Text = "是三角形" ThenIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 ThenText5.Text = "直角三角形"End IfIf a ^ 2 + b ^ 2 > c ^ 2 And a ^ 2 + c ^ 2 > b ^ 2 And b ^ 2 + c ^ 2 > a ^ 2 ThenText5.Text = "锐角三角形"End IfIf a ^ 2 + b ^ 2 < c ^ 2 Or a ^ 2 + c ^ 2 < b ^ 2 Or b ^ 2 + c ^ 2 < a ^ 2 ThenText5.Text = "钝角三角形"End IfText6.Text = a + b + cText7.Text = (1 / 4) * Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a))End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub四、杨辉三角形。

编写适当的事件过程，在窗体上输出相对应行数的杨辉三角形，点击窗体弹出inputbox对话框，在对话框中输入行数，打印出如下图所示的杨辉三角形能做这道题说明二维数组的输出掌握的很好。

答案：Private Sub Form_Click()Dim i As Integer, j As IntegerDim a As Integera = Val(InputBox("请输入行数"))Dim c(9, 9) As IntegerIf a > 0 ThenFor i = 1 To aPrint Space(3 * a - 3 * i);For j = 1 To iIf i = 1 Or j = i Then ‘当为三角形两边的时候，输出1c(i, j) = 1End IfIf i = 2 Or j = i - 1Then ‘当为三角形的两边里面一个的时候输出行数-1c(i, j) = i - 1End IfIf i > 2 And j < i - 1Then ‘否则都以自身上面一行对角线两个数的和。

c(i, j) = c(i - 1, j - 1) + c(i - 1, j)End IfPrint c(i, j) &" ";‘输出NextPrintNextEnd IfEnd Sub五、标签左右移动。

点击开始按钮，标签右移动，到达右边则向左移动，到达左边则向右移动，点击停止按钮则停止移动答案：Dim aPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Timer1.Enabled = Falsea = 0End SubPrivate Sub Timer1_Timer()If Label1.Left >= Val(Form1.Width) - Val(Label1.Width) Thena = 1End IfIf Label1.Left <= 0 Thena = 0End IfIf a = 1 ThenLabel1.Left = Label1.Left - 100End IfIf a = 0 ThenLabel1.Left = Label1.Left + 100End IfEnd Sub六、相邻数加起来为素数。

本程序用于求1~10中相邻数之和是素数的所有自然数对。

例如：1和2为相邻数并且1+2=3，3为素数，则输出1和2.答案：Private Sub Form_Click()Dim i As IntegerFor i = 1 To 10f = 0For j = 2 To i - 1If (i + (i + 1)) Mod j = 0 Thenf = 1Exit ForElsef = 0End IfNextIf f = 0 ThenPrint i; i + 1End IfNextEnd Sub七、通项分母(累加).下面程序的功能是计算，若通项分母的值>=200，停止计算（正确答案是S=1.409524）S=1+1/1*3 + 1/1*3*5 +1/1*3*5*7…..答案：Private Sub Form_Click()Dim i As IntegerDim n As Integeri = 1n = 1DoIf n > 200 ThenExit DoElsePrint iSum = Sum + (1 / n) End Ifi = i + 2n = n * iLoopPrint SumEnd Sub第二种：Private Sub Form_Click()Dim i As IntegerDim n As Integeri = 1n = 1Do While n <= 200Sum = Sum + (1 / n)i = i + 2n = n * iLoopPrint SumEnd Sub八、判断降序数。

在文本框中输入一个整数，以确定它是否是一个降序数字。

(降序数是指高位数大于低位数，按降序排列，如321，654，9876等。

合集下载

vb程序设计题及答案

vb程序设计题及答案

vb程序设计题及答案【篇一：vb程序设计试题及答案】txt>一、单选题1. visual basic是一种面向对象的可视化程序设计语言，采取了 a的编程机制。

(a) 事件驱动 (b) 按过程顺序执行(c) 从主程序开始执行 (d) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对d 属性进行设置。

(a) backcolor (b) borderstyle(c) forecolor (d) backstyle3. 在visual basic中最基本的对象是c，它是应用程序的基石，是其他控件的容器。

(a) 文本框 (b) 命令按钮(c) 窗体 (d) 标签4. 要判断在文本框是否按下enter键，应在文本框的 d 事件中判断。

(a) change (b)keydown(c) click (d)keypress5. 数学表达式3≤xl0在vb中的逻辑表达式为 d 。

(a) 3=x10(b) 3=x and x10(c) x=3 or x10 (d) x=3 and x106. rnd函数不可能为下列 b值。

(a) 0 (b) 1(c) 0.1234 (d) 0.00057. 赋值语句:a=123+mid(123456，3，2)执行后，a变量中的值是d。

(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=l then y=l，下列说法正确的是 c 。

(a) x=l和y=l均为赋值语句(b) x=l和y=l均为关系表达式(c) x=l为关系表达式，y=l为赋值语句(d) x=l为赋值语句，y=l为关系表达式9. 下面程序段表示求两个数中的大数， d 不正确。

(a) max=iif(xy，x，y) (b) if xy then max=x else max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10.当在文本框中输入“abcd”4个字符时，窗体上显示的是c。

vb程序设计书习题和参考答案

vb程序设计书习题和参考答案

vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。

2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。

3．事件是由Visual Basic预先定义的对象能够识别的动作。

4．新建⼯程时系统会⾃动将窗体标题设置为Form1。

5．控件的属性值不可以在程序运⾏时动态地修改。

6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。

7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。

8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。

9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。

10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。

⼆、选择题1．⼯程⽂件的扩展名为。

A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。

A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。

A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。

A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。

A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。

VB程序设计30道编程题

VB程序设计30道编程题

V B程序设计30道编程题------------------------------------------作者xxxx------------------------------------------日期xxxx'1.输入3个数，输出最大的数Private Sub Command11_Click()Dim max%X1=Val(InputBox("input"))X2=Val(InputBox("input"))x3=Val(InputBox("input"))max=X1If max<=X2 Thenmax=X2End IfIf max<=x3 Thenmax=x3End IfMsgBox("3个数之中的最大数max="&max)End SubPrivate Sub Command12_Click()'2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=Val(InputBox("input"))B=Val(InputBox("input"))c=Val(InputBox("input"))s=B^2-4*a*cIf a<>0 ThenIf s=0 ThenMsgBox("两个相等实根")ElseIf s>0 ThenMsgBox("两个不相等实根")ElseIf s<0 ThenMsgBox("两个不相等虚根")End IfElseMsgBox("无解")End IfEnd SubPrivate Sub Command13_Click()'3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示"恭喜！成绩通过！"，若小于60，则弹出消息框，显示"抱歉！成绩没有通过！"X=Val(InputBox("input"))If X>=60 ThenMsgBox("恭喜！成绩通过！")ElseMsgBox("抱歉！成绩没有通过！")End If End SubPrivate Sub Command14_Click()'4.输入一年份，判断它是否为闰年，并显示有关信息。

VB程序设计题库全

VB程序设计题库全

V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT-程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。

将结果存入变量S中。

代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。

将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。

将结果存入变量M中。

代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。

将结果存入变量SUM中。

代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。