求vb编程习题，txt格式的最好，

有答案更好了。

推荐答案 2010-02-26

　　VB编程习题
　　班级姓名学号
　　一、填空题
　　1、下列哪些可以作为变量?
　　12fd x13 r2 a2 23a2

　　2、下列哪些可以作为常量？并说明是数值型还是字符型、逻辑型、日期型？
　　“asdf” asdf "1234" 1234 #2008/11/10# true false a3

　　3、把下列数学式子写成VB表达式

　　4、计算下列VB表达式的值(要求写出步骤)
　　5*3*6\2
　　8/4*2.5/1.25*(3.7+2.5)
　　18\4*4.0^2/1.6
　　25\3 Mod 3*2
　　26\3 Mod 0.4*Sqr(25)
　　8/4*5/2.5*(3.25+6.75)
　　3*7\2
　　14/5*2
　　15\5*2
　　27^1/3
　　27^(1/3)
　　sqr(100)\4*2
　　5、按下列要求写出赋值语句
　　(1)把数值234赋给变量a
　　(2)把字符串abc赋给变量z1
　　(3)把表达式2sin15°的值赋给变量ss
　　(4)把标签Lblts的内容改为姓名
　　(5)把框架Frm1的背景色改为黑色(#000000)
　　6、写出下列函数的值
　　Int(-3.14159)
　　Sqr(sqr(16))
　　7、产生a-b范围内(包括b)整数的公式：_______________________
　　8、写出输入输出语句
　　输入对话框：要求使用图标，标题为：”输入对话框” ，对话框中的内容是”请输入你的姓名”
　　___________________________________
　　输出对话框：要求使用图标，标题为：”输出对话框” ，对话框中的内容是”你输错了”
　　___________________________________
　　二、选择题
　　1、 Visual Basic集成开发环境中不包括下列哪些窗口？（D）
　　A. 工具箱窗口 B. 工程资源管理器窗口
　　C. 属性窗口 D. 命令窗口
　　2、 “一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对象Visual Basic中的哪些术语？（B）
　　A. 对象、属性、事件、方法 B. 对象、属性、方法、事件
　　C. 属性、对象、事件、方法 D. 属性、对象、方法、事件
　　3、对象的特征和状态特征称为？（C）
　　A. 事件 B. 方法 C. 属性 D. 类
　　4、下面哪一个属性用来标识对象的名称？（D）
　　A. Caption B. Value C. Text D. Name
　　5、下列哪个符号是合法的变量名? （A）
　　A. VB123 B. Abs C. 99Ji D. x\y
　　6、数学式子10sin25o写成Visual Basic表达式是？（D）
　　A. 10sin25 B. 10*sin(25) C. 10*sin(25o) D. 10*sin(25*3.14/180)
　　7、Visual Basic中不存在下列哪一种数据类型？（D）
　　A. 字符串类型 B. 日期类型 C. 逻辑类型 D. 指针类型
　　8、表达式Left(“Visual”,3)+Lcase(“AB”)的值是？（C）
　　A. visAB B. VisAB C. Visab D. ualab
　　9、表达式6+10 Mod 4*2+1的值是？（B）
　　A. 9 B. 11 C. 1 D. 3
　　10、把数值型转换为字符串型需要使用下列哪一种函数? （B）
　　A. Val() B. Str() C. Asc() D. Chr()
　　11、VB中窗体文件的扩展名是______。
　　(A)VBP (B)FRM(对) (C)VBW (D)PDM
　　12、在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。
　　(A)代码窗口 (B)窗体设计窗口 (C)属性窗口 (D)工程资源管理器窗口(对)
　　13、在VisualBasic中，所有的窗体和控件都必定具有的一个属性是______。
　　(A)Name(对) (B)Font (C)Caption (D)FillColor
　　14、对变量名说法不正确的是______。
　　(A)必须是字母开头，不能是数字或其他字符
　　(B)不能是VB的保留字
　　(C)可以包含字母、数字、下划线和标点符号(对)
　　(D)不能超过255个字符
　　15、以下变量名中，______是不符合VisualBasic的命名规范的。
　　(A)Abc901 (B)_mnu_Open_234(对) (C)price_ (D)K
　　16、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：
　　PrivateSubCommand1_Click()
　　DimbAsInteger
　　b=b+1
　　EndSub
　　运行程序，三次单击命令按钮后，变量b的值是：______。
　　(A)0 (B)1(对) (C)2 (D)3
　　17、下列程序段的执行结果为______。
　　X=5:Y=-20
　　IfNotX> 0The
　　X=Y-3
　　Else
　　Y=X+3
　　Endif
　　PrintX-Y;Y-X
　　(A)-33(对) (B)5-8 (C)3-3 (D)25-25
　　18、当x为偶数时，则在窗体上显示“偶数”，否则显示“奇数”，不能实现该代码段功能的是
　　(A)ifx\2=x/2thenprint"偶数"elseprint"奇数"
　　(B)ifxmod2=0thenprint"偶数"elseprint"奇数"
　　(C)ifnotxmod2<>0thenprint"偶数"elseprint"奇数"
　　(D)ifx\2=int(x/2)thenprint"偶数"elseprint"奇数"(对)
　　19、若要执行下列程序段后窗体上显示”红”字，则x可取的值为：
　　selectcaseint(x/10)
　　case2,4,6,8
　　print"黄"
　　case1,3,5,7,9
　　print"绿"
　　caseelse
　　print"红"
　　endselect
　　(A)27 (B)38 (C)10 (D)5(对)
　　20、在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。
　　(A)Picture1.Picture="mypic.jpg"
　　(B)Picture1.Image="mypic.jpg"
　　(C)Picture1.Picture=LoadPicture("mypic.jpg")(对)
　　(D)LoadPicture("mypic.jpg")
　　21、大部分控件都没有的属性是______。
　　(A)Top (B)Name (C)Enabled (D)Interval(对)
　　22、下列属于正确的字符串常量的是____________
　　(A)#ABC" (B)$ABC$ (C)'ABC' (D)"ABC"(对)
　　23、设a=8,b=10，则以下表达式的值为真的是____________
　　(A)(-3+5>a)and(b>0) (B)a>=bandb>12 (C)not(b>0) (D)(a>b)or(b>0)(对)
　　24、语句Z=y+1代表________
　　(A)将变量Z存入变量y中，再加上1的表达式
　　(B)变量Z取得y+1的值(对)
　　(C)变量Z取得变量y的值，然后再加上1的一个表达式
　　(D)将变量Z存入变量y+1中
　　25、执行下面的语句后，所产生的信息框的标题是___________。A=MsgBox("AAAAA",3,"BBBBB")
　　(A)BBBBB(对) (B)AAAAA (C)空 (D)出错，不能产生信息框
　　26、执行下列代码，分别输入12和89，输出结果是_____。
　　PrivateSubForm_Click()
　　a=InputBox("D")
　　b=InputBox("E")
　　Printa+b
　　EndSub
　　(A)101 (B)DE1289 (C)DE (D)1289(对)
　　27、为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是_______。
　　(A)Enabled(对) (B)Visible (C)Timer (D)Interval
　　28、下列表达式，哪一个可以产生1到6之间的随机整数（包括1和6）___。
　　(A)Int(Rnd*7) (B)Int(Rnd(6)+1) (C)Int(Rnd*6) (D)Int(Rnd*6+1)(对)
　　29、执行下列程序，从键盘输入10，运行结果是_________。
　　PrivateSubCommand1_Click()
　　S=InputBox("请输入一个数字：")
　　SelectCaseS
　　CaseIs>0
　　Print">0"
　　CaseIs>3
　　Print">3"
　　CaseIs>5
　　Print">5"
　　EndSelect
　　EndSub
　　(A)>0(对) (B)>3 (C)>5 (D)>0
　　29、在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
　　PrivateSubCommand1_Click()
　　a=InputBox("请输入日期(1~31)")
　　SelectCasea
　　CaseIs<=0,Is>=31
　　t=t+"有误"
　　caseIs<=10,20
　　t=t+"北京"
　　caseIs<=20
　　t=t+"大连"
　　caseIs<=31
　　t=t
　　(A)假期的旅游路线：北京大连
　　(B)假期的旅游路线：大连北京
　　(C)假期的旅游路线：北京(对)
　　(D)假期的旅游路线：大连

　　三、程序填空
　　顺序结构
　　1、加法运算.三个文本框的名称分别是 text1 text2 text3

　　清除按钮
　　Private Sub Command1_Click()
　　______________________________
　　End Sub
　　加法运算按钮
　　Private Sub Command2_Click()
　　______________________________
　　End Sub
　　退出按钮
　　Private Sub Command3_Click()
　　______________________________
　　End Sub
　　2、编程序，由键盘输入小时、分、秒后，转换成共有多少秒？(界面参考如下),三个文本框的名称分别是：text1 text2 text3 转换结果内的标签名称为label1

　　计算按钮程序编写如下
　　Private Sub Command1_Click()
　　______________________________
　　End Sub

　　3、编写一个计算2个整数相除后的商与余数程序。运行后参考界面如下：两个文本框名称分别是：text1 text2，除数标签label1 余数标签label2

　　计算按钮代码编写
　　Private Sub Command1_Click()
　　______________________________

　　_______________________________
　　End Sub

　　条件语句
　　1、写出条件语句的格式
　　行if语句结构

　　块if语句结构

　　Select语句结构

　　1、倒计时程序：当a倒数到0时，就输出时间到；当没有到0时，就减1
　　Dim a As Integer ‘全局变量定义
　　开始计时按钮代码编写：
　　Private Sub Command1_Click()
　　a = 10
　　________________________________ ‘开始计时
　　Command1.Visible = False
　　End Sub

　　时间控件timer1 代码编写：
　　Private Sub Timer1_Timer()
　　If a = 0 Then
　　_____________________________ ‘_输出时间到
　　_________________________________’计时停止
　　Command1.Visible = True
　　Else
　　Label1.Caption = a
　　__________________________’倒计时
　　End If
　　End Sub

　　2、成绩等级评定
　　90分以上的是优秀，80－90的是良好，70－80的是一般，60－70的是及格，60分以下的是不及格

　　Private Sub Command1_Click()
　　Dim x As Single
　　x = Val(Text1.Text)
　　Select Case ______ ' 使用Select…Case语句
　　Case _________
　　Text2.Text = "优秀"
　　Case Is > 80
　　Text2.Text = "良好"
　　Case Is > 70
　　Text2.Text = "中等"
　　Case Is > 60
　　Text2.Text = "及格"
　　Case Else
　　Text2.Text = "不及格"
　　________________

　　End Sub
　　3、飞机票的标准价格是1000元／张，1月或3－6月，每张打6折。9－11月每张打7折，7,8两个月每张打8折。其他月份每张打9折。要求设计程序，输入月份和张数，能计算出应付的金额。
　　提示：select语句

　　Private Sub Command1_Click()
　　______________________________________定义 m,n,z为整型变量
　　m = Val(Text1.Text)
　　N = Val(Text2.Text)
　　Select Case m ' 根据月份进行选择
　　Case_____________ ' 1月或3～6月
　　z = 0.6
　　Case _____________ ' 9月～11月
　　z = 0.7
　　Case 7, 8
　　z = 0.8
　　Case Else
　　z = 0.9
　　End Select
　　MsgBox "您共需要付款：" & 1000 * N * z, , "结算"
　　End Sub
　　四、写程序题
　　1、奇偶判断
　　判断奇偶,被2整除余数是0的是偶数，否则的话就是奇数。文本框名称：text1 ,text2

　　Private Sub Command1_Click()
　　Dim int1 As Integer, int2 As Integer
　　int1 = Val(Text1.Text)
　　int2 = int1 Mod 2 '整除2取余数
　　If int2 = 0 Then '判断是否为偶数
　　Text2.Text = "这是一个偶数!"
　　Else
　　Text2.Text = "这是一个奇数!"
　　End If
　　2、星期计算程序文本框名称：text1 text2

　　Private Sub Command1_Click()
　　Dim Rq As Date, x As Integer
　　Rq = Text1.Text
　　x = Abs(Rq - #1/1/1900#) Mod 7 ' 当前日期与1/1/1900相减取7的余数
　　Select Case x
　　Case 0 ' 余数为0则当天是星期一
　　Text2.Text = "星期一"
　　Case 1 ' 余数为1则当天是星期二
　　Text2.Text = "星期二"
　　Case 2
　　Text2.Text = "星期三"
　　Case 3
　　Text2.Text = "星期四"
　　Case 4
　　Text2.Text = "星期五"
　　Case 5
　　Text2.Text = "星期六"
　　Case Else
　　Text2.Text = "星期日"
　　End Select
　　End Sub
　　3、比较大小程序文本框分别为text1 text2 标签是 label1

　　Private Sub Command1_Click()
　　Dim x As Integer, y As Integer
　　x = Val(Text1.Text): y = Val(Text2.Text)
　　If x < y Then '判断x>y是否为真如果为真执行下面程序
　　Label1.Caption = "<"
　　ElseIf x > y Then
　　Label1.Caption = ">"
　　Else
　　Label1.Caption = "="
　　End If
　　End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/G8q83IG33.html

其他回答

第1个回答 2010-02-26

自己想做什么。去网上找找啊。。。可以学到很多东西的

第2个回答 2010-02-28

相似回答

vb编程题:在文件1.txt当中有1000个数,请对它们从小到大排序,然后求前10...答：建一个有1000个乱数的文件1.txt在c盘，下面的程序把文件1.txt的乱数读入数组，用冒泡法排序，并把的结果输出2.txt里面。对话框中显示出前100个数的和 Sub MySort()Dim buf As String Dim numc As Integer Dim i As Integer Dim j As Integer Dim arr(1000) As Double Dim t As Double Di...

VB编程题,求高手速回,采纳的加分答：这个还真没啥难度，纯粹的体力活儿……你自己尝试一下先，会有收获的。

vb编程 问题求1到100 之间的质数要求在写入到一个txt文本文件输出答：Dim tmpstr As String Open App.Path & "\1.txt" For Output As #1 For i = 2 To 100 If isPrime(i) Then If j < 5 Then tmpstr = tmpstr & Format(i, "00") & " "j = j + 1 If j = 5 Then Print #1, Trim(tmpstr)tmpstr = ""j = 0 End If End If End If N...

VB编程-数据格式问题,要实现TXT文本中的数据在指定位置自动回车,因为...答：先用文件流把字读出来﹐然后再用个循环检索指定位置﹐再用文件流写个br进去。

向vb 高手求助代码编程:菜单中打开txt或excel数据表文件,求某列中几...答：1,菜单中代开txt或excel数据文件;2,选取某列中的连续几个,求平均值;3,然后找出该列中,平均值上下60%的数据(目标值附近的数据);4,把找到的数据(目标值附近的数据)对应的一... 1,菜单中代开txt或excel数据文件;2,选取某列中的连续几个,求平均值;3,然后找出该列中,平均值上下60%的数据(目标值附近的...

vb 已知数据文件data.txt中有若干个数据,编程求这些数据的平均值答：下面我猜测性的示范一下假设data.txt文件中存放在D盘下，并且存放这样的数据：123 12 99 50 。。。我们可以这样编写程序读出数据 Dim arr() As Variant '因为是未知数据类型，所以我定义一个默认数组 Private Sub Command1_Click()Dim counter Dim sum Open "D:\123.txt" For Input As #1 Do ...

求高手给 VB6 Text1+text2=text3的编程最好详解下 Text.的意思更好...答：楼上给你是VB.NET的解答，估计这位同学是刚开始学VB肯定不明白你的意思。Text1+text2=text3的编程，规范的计算机语言语法是text3=Text1+text2，变量在等式左边，表达式在右边。不能给表达式、常量赋值，只能给变量赋值。text3=Text1+text2的最标准的写法应该是text3.Text=Text1.Text+text2.Text。...

大家正在搜