vb上机实践书上的题目求解！

[会计实践报告题目]会计电算化工作可能出现的问题及对策会计电算化相关问题研究会计计量对企业会计收益的影响会计模式问题研究会计信息真实性问题研究会计业务集中核算的利弊分析及对策...+阅读

vb上机实践书上的题目求解！

Private Sub Command1_Click() '1。消费在1000元以下，不优惠 '2。消费在2000元以下，按九五折优惠 '3。消费在3000元以下，按九折优惠 '4。消费在5000元以下，按八五折优惠 '5。消费在5000元以上，按八折优惠 Select Case Val(Text1.Text) Case Is < 1000 s = Val(Text1.Text) Case Is < 2000 s = Val(Text1.Text) * 0.95 Case Is < 3000 s = Val(Text1.Text) * 0.9 Case Is < 5000 s = Val(Text1.Text) * 0.85 Case Is >= 5000 s = Val(Text1.Text) * 0.8 End Select Text1.Text = s End Sub

VB上机题目及答案06年9月

9月25日 13:20 全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟，满分100分）2004年9月18日

一、选择题（

（1）—（20）每小题2分，（21）—（30）每小题3分，共70分）下列各题 A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

（1）设窗体上有一个文本框，名称为text1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0答案：B(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体＂的语句是A) Form1.Name=＂VisualBasic窗体＂B) Form1.Title=＂VisualBasic窗体＂C) Form1.Caption=＂VisualBasic窗体＂D) Form1.Text=＂VisualBasic窗体”答案：C(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub答案A(4) 设菜单中有一个菜单项为＂Open＂。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行＂Open＂命令，则在菜单编辑器中设置“Open＂命令的方式是A）把Caption属性设置为&OpenB）把Caption属性设置为O&penC）把Name属性设置为&OpenD）把Name属性设置为O&pen答案A(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox(＂Input＂)Select Case xCase 1,3Print ＂分支 1＂Case Is >4Print ＂分支 2＂Case ElsePrint ＂Else 分支＂End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C) Else分支 D）程序出错答案C (6) 以下关于MsgBox的叙述中，错误的是A) MsgBox函数返回一个整数B）通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量答案D(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A)Timer1.InterVal=0.5 B) Timer1.Interval=5C) Timer.Interval=50 D) Timer1.Interval=500答案D(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2Next Print x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6答案：B (9) 以下关于多重窗体程序的叙述中，错误的是A）用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体答案：A(10)以下关于文件的叙述中，错误的是A）顺序文件中的记录一个接一个地顺序存放B）随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D)LOF函数返回给文件分配的字节数答案B(11) 以下叙述中错误的是A）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定答案D(12) 以下合法的Visual Basic标识符是A) ForLoop B) Const C) 9abc D) a#x答案A(13) 当一个复选框被选中时，它的Value属性的值是A) 3 B) 2 C) 1 D) 0答案C(14) 表达式 5 Mod 3+3\5*2的值是A) 0 B) 2 C)4 D) 6答案B(15) 设x=4,y=8,z=7，以下表达式的值是xz) Or z

VB上机练习题

1、Private Sub Command1_Click()Dor = Val(InputBox（＂请输入圆的半径（>0）:＂))Loop Until r >0Print ＂圆半径为：＂； rPrint ＂圆的周长是：＂； 2 * 3.1415926 * rPrint ＂圆的面积为：＂； r * r * 3.1415926End Sub

2、Private Sub Command1_Click()Dim 边长

（3） As SingleFor i = 1 To 3 '输入三个边长，不得小于等于0Do边长（i） = Val(InputBox（＂请输入三角形的第＂ & i & ＂条边的边长（>0）:＂))Loop Until 边长（i） >0Next iFor i = 1 To 2 '排序For j = i + 1 To 3If 边长（i）

（1） >边长

（2） + 边长

（3） Then '两短边的和小于长边，不能构成三角形！MsgBox ＂你输入的数据：＂ & 边长

（1） & ＂、＂ & 边长

（2） & ＂、＂ & 边长

（3） & ＂不能构成三角形！＂Exit SubEnd IfPrint ＂三角形三边为：＂；边长

（1）；边长

（2）；边长

（3）s = （边长

（1） + 边长

（2） + 边长

（3）) / 2Print ＂三角形面积为：＂； Sqr(s * (s - 边长

（1）) * (s - 边长

（2）) * (s - 边长

（3））） '这个公式，你自己再看一下，我记不准了End Sub

3、前面已经有了

4、前面已经有了

5、Private Sub Command1_Click()Do头 = Int(InputBox（＂请鸡兔的头数（>0）:＂))Loop Until 头 >0Do脚 = Int(InputBox（＂请鸡兔的脚数（大于等于2倍的头数，且为偶数）：＂））Loop Until （脚 >= 2 * 头） And （脚 Mod 2 = 0）兔 = （脚 - 2 * 头） / 2Print ＂鸡兔同。

其首＂ & 头 & ＂，其脚＂ & 脚 & ＂。＂Print ＂兔的数量一共有：＂；兔Print ＂鸡的数量一共有：＂；头 - 兔End Sub

6、“能被3带队”不知道是啥意思

7、Private Sub Command1_Click()Do长 = Int(InputBox（＂请输入长（>0）:＂))Loop Until 长 >0Do宽 = Int(InputBox（＂请输入宽（>0）:＂))Loop Until 宽 >0Do高 = Int(InputBox（＂请输入高（>0）:＂))Loop Until 高 >0Print ＂长方体长宽高分别为：＂；长；宽；高Print ＂其体积为：＂；长 * 宽 * 高Print ＂其表面积为：＂； 2 * （长 * 宽 + 长 * 高 + 宽 * 高）End Sub

8、Private Sub Command1_Click()Do数 = Int(InputBox（＂请输入一个三位整数（>0）:＂))Loop Until 数 >99 And 数

9、已知条件不明。

10、Private Sub Command1_Click()Dim a

(2) As SingleFor i = 2 To 0a(i) = Val(InputBox（＂请输入＂ & i & ＂次项的系数（2次项系数不得为零）：＂））Next iIf a

(2) = 0 ThenMsgBox ＂二次项系数为零，哪里还叫二次方程！＂Exit SubEnd Ifdelta = a

(1) * a

(1) - 4 * a

(2) * a(0)If delta

(2); ＂X^2＂;If a

(1) >0 ThenPrint ＂+＂; a

(1);ElseIf a

(1)

(1);End IfIf a(0) >0 ThenPrint ＂+＂; a(0);ElseIf a(0)

(1) / 2 / a

(2)Elsedelta = Sqr(delta)Print ＂有两个实数解：＂Print ＂X1=＂; (-a

(1) - delta) / 2 / a

(2)Print ＂X2=＂; (-a

(1) + delta) / 2 / a

(2)End IfEnd Sub

11、Private Sub Command1_Click()Dim 质数 As BooleanDoa = Int(InputBox（＂请输入要判断的数（>2）:＂))Loop Until a >2质数 = TrueFor i = 2 To Sqr(a)If a Mod i = 0 Then质数 = FalseExit ForEnd IfNext iIf 质数 ThenPrint a；＂是指数。

＂ElsePrint a；＂不是质数。可以被＂； i；＂整除＂End IfEnd Sub

12、Private Sub Command1_Click()n = 0Don = n + 1s = s + nLoop Until s >30000Print ＂n=＂; n - 1Print ＂s = ＂; s - nEnd Sub

13、Private Sub Command1_Click()For i = 4 To 1 Step -1Print Tab(5 - i);For j = 1 To 2 * i - 1Print ＂*＂;Next jPrintNext iEnd Sub顺便说一下，很简单的你也要人给你做么？