Question

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

有答案更好了。

Answer 1

　　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

Answer 2

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

Answer 3

88