经核实吧主无di阳 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 无di阳吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

此贴为水贴，不要问我我是谁

哈哈

2009年信息技术会考VB复习题 一、单选题 1.      计算机程序的三种结构是顺序结构、         、选择结构。 A．模块结构     B．循环结构     C．多重循环结构     D．IF块结构 2.          是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。 A．任务     B．事件     C．控件 &

2009年信息技术会考VB复习题 一、单选题 1.      计算机程序的三种结构是顺序结构、         、选择结构。 A．模块结构     B．循环结构     C．多重循环结构     D．IF块结构 2.          是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。 A．任务     B．事件     C．控件 &

4. 阅读以下程序段 Private Sub Command1_Click() For   R =100 to 520 step 100    b1 = 255 * Rnd( )    b2 = 255 * Rnd( )    b3 = 255 * Rnd( )    Picture2.Circle(1000,1000), R,RGB(b1,b2,b3) Next R End Sub 当程序执行时，单击command1后，将在（何处）___________显示____________个颜色______（填相同或不同）的同心圆。 5. 以下是求任意圆面积的程序 Private Sub Command1_Click() R = ________________________ print   “S=”；3.14*R*R End Sub 在程序执行过程中单击command1

三、读程序运行结果 1. 下列程序运行后，变量s=           。 Dim a,b,c,s As Integer a=9 b=41 c=2*(a+b) s=a*c A．100     B．50     C．900     D．300 2. 下列程序运行后，变量x=           。 Dim n,x As Integer n=5 Private Sub Form_Load() x=1              For i=1 To n           &nbs

1. 计算机程序的三种结构是顺序结构、         、选择结构。 A．模块结构     B．循环结构     C．多重循环结构     D．IF块结构 2.      是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。 A．任务     B．事件     C．控件     D．过程 3. 在VB系统中，一个对象内部的函数或过程，称为对象的   &n

冯谖客孟尝君 《战国策》 齐人有冯谖者，贫乏不能自存。使人属孟尝君，愿寄食门下。孟尝君曰：“客何好？”曰：“客无好也。”曰：“客何能？”曰：“客无能也。”孟尝君笑而受之曰：“诺。” 左右以君贱之也，食以草具。居有顷，倚柱弹其剑，歌曰：“长铗归来乎！食无鱼。”左右以告。孟尝君曰：“食之，比门下之客。”居有顷，复弹其铗，歌曰：“长铗归来乎！出无车。”左右皆笑之，以告。孟尝君曰：“为之驾，比门下之车客。”

If Label1.Caption = "+" Then Text3.Text = a + b End If If Label2.Caption = "-" Then Text3.Text = a - b End If If Label3.Caption = "*" Then Text3.Text = a * b End If If Label3.Caption = "/" Then Text3.Text = a / b End If If Label1.Caption = "/" Then     If Text2.Text = "0" Then     MsgBox ("除数不能为零！新输入一个除数！")     Text2.Text = "" Else     Text3.Text = a / b     End If     End If &

Private Sub Command4_Click() y = 5000 r = 1000 For x = 0 To 5000 Step 100 Circle (x, y), r, RGB(255, 0, 0) Next x End Sub Private Sub Command5_Click() For r = 10 To 1000 Step 100 Circle (3000 + r, 3000 + r), r, RGB(255, 0, 0) Circle (3000 + r, 3000 - r), r, RGB(255, 0, 0) Circle (3000 - r, 3000 - r), r, RGB(255, 0, 0) Circle (3000 - r, 3000 + r), r, RGB(255, 0, 0) Next r End Sub Private Sub Command6_Click() For r = 1 To 1000 Step 10 x = Rnd * 10000 y = Rnd * 10000 Circle (x, y), r, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Next r End Sub Private Sub Command7_Click() Cls

Private Sub Command1_Click() Dim a, b, c As Integer Dim x As Single a = Val(InputBox("a=", "输入第一个数")) b = Val(InputBox("b=", "输入第二个数")) c = Val(InputBox("c=", "输入第三个数")) If a > b And a > c Then x = a Print "x= "; x, " " End If If b > a And b > c Then x = b Print x = "; x, " End If If c > a And c > b Then x = c Print "x= "; x, "" End If End Sub Private Sub Command2_Click() Cls     'Cls方

Private Sub Command1_Click() Dim a, b As Single a = Val(Text1.Text) b = Val(Text2.Text) If Label1.Caption = "+" Then Text3.Text = a + b End If If Label2.Caption = "-" Then Text3.Text = a - b End If If Label3.Caption = "*" Then Text3.Text = a * b End If If Label3.Caption = "/" Then Text3.Text = a / b End If If Label1.Caption = "/" Then     If Text2.Text = "0" Then     MsgBox ("除数不能为零！新输入一个除数！")     Text2.Text = "" Else &n

如题喽

Private Sub Command1_Click() Dim a, b, c As Integer Dim x1, x2 As Single a = Val(InputBox("a=", "输入二次项系数")) b = Val(InputBox("b=", "输入一次项系数")) c = Val(InputBox("c=", "输入常数项")) delta = b * b - 4 * a * c If delta < 0 Then Print "此方程无实根" Else x1 = -b + Sqr(delta) / 2 * a x2 = -b - Sqr(delta) / 2 * a Print "x1="; x1, "x2="; x2 End If End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub

Private Sub Command1_Click() If Text1.Text <= 5 Then Label3.Caption = 3.5 * Text1.Text End If If Text1.Text > 5 And Text1.Text <= 10 Then Label3.Caption = 3.25 * Text1.Text End If If Text1.Text > 10 And Text1.Text <= 20 Then Label3.Caption = 3.1 * Text1.Text End If If Text1.Text > 20 Then Label3.Caption = 2.85 * Text1.Text End If End Sub Private Sub Command2_Click() Text1.Text = "" Label3.Caption = "" End Sub Private Sub Command3_Click() End End Sub

Private Sub Command1_Click() Dim a, b As Single a = Val(InputBox("a=", "输入头数")) b = Val(InputBox("b=", "输入脚数")) x = 2 * a - b / 2 y = b / 2 - a Print "鸡数x="; x, "兔数y="; y End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub

rt...

被蒙的感觉...

Dim A, B, C As Integer A = Text1.Text B = Text2.Text C = Text3.Text S = 2 * (A * B + A * C + B * C) Label6.Caption = S V = A * B * C Label7.Caption = V End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label6.Caption = "" Label7.Caption = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() End Sub

8中哪班的谁？

如题....