高一信息技术练习题(vb)

高一信息技术练习题算法与程序设计（VB）-基本语句一、根据要求完成下列各题1、Private Sub Command1_Click()A = 12B = 15C = A + BPrint C=; CEnd Sub结果为：_2、Private Sub Command1_Click()A = 12B = 15C = BC = C - APrint C=; CEnd Sub结果为：_3、Private Sub Command1_Click()X = 3Y = 4Z = Sqr(Y)Y = X + ZPrint Y=; YEnd Sub结果为：_4、Private Sub Command1_Click()X = -3Y = 9Y = Sqr(Y)Y = Abs(X) + YPrint Y=; YEnd Sub结果为：_5、Private Sub Command1_Click()I = 120J = 110Print I; JK = II = JJ = KPrint I=; I，J=; JEnd Sub结果为：_ _6、Private Sub Command1_Click()I = 120J = 110I = I + JJ = I - JI = I - JPrint I=; I，J=; JEnd Sub结果为：_7、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)If A = 0 ThenPrint AElsePrint Abs(A)End IfEnd Sub单击按钮，输入-9，运行结果为：_8、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)B = Val(InputBox(请输入一个数)If A = B Then Y = AElse Y = BEnd IfPrint YEnd Sub单击按钮，输入100和90运行结果为：_9、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)If Int(A / 2) = A / 2 Then A = AElse A = A + 1End IfPrint A=; AEnd Sub单击按钮，输入2运行结果为：_单击按钮，输入9运行结果为：_10、 Private Sub Command1_Click()A = Val(InputBox(请输入一个数)If A Mod 2=0 Then Label1.Caption = 您输入的是一个偶数Else Label1.Caption = 您输入的是一个奇数End IfEnd Sub单击按钮，输入37运行结果为：_11、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)S = 0For I = 1 To A S = S + INext IPrint S=; SEnd Sub单击按钮，输入5运行结果为：_12、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)S = 0For K = 1 To A Step 3 S = S + 2Next KPrint S=; SEnd Sub单击按钮，输入15运行结果为：_13、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)S = 0For K = 1 To A Step 3 S = S + 2Next KS = S= + Str(S)Label1.Caption = SEnd Sub单击按钮，输入27运行结果为：_14、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)S = 2For K = 1 To A S = S * KNext KS = S= + Str(S)Label1.Caption = SEnd Sub单击按钮，输入4运行结果为：_15、Private Sub Command1_Click()A = Val(InputBox(请输入一个数)S = 1For K = 1 To A Step 5 S = S * 2Next KS = S= + Str(S)Label1.Caption = SEnd Sub单击按钮，输入25运行结果为：_16、写出下列语句的基本格式 (1)、赋值语句：_ 实 例：_(2)、输入语句：_ 实 例：_(3)、输出语句：_ 实 例：_17、写出下列语句的基本格式，并画出执行过程的流程图。(1)、条件语句(If) 基本格式： 流程图： 格式： 流程图：18、填空完成程序，使之能够完成以下功能：并画出程序流程图。计算s=1!+2!+3!+8!的值并在窗体上打印出结果。Private Sub Command1_Click()Dim S As Single, P As Single, I As IntegerS = _ 流程图：P = _For I = 1 To 8 P = _ S = _Print S=, SEnd Sub19、填空完成程序，使之能够完成以下功能：并画出程序流程图。计算1-1/2+1/3-1/4+.+1/99-1/100的值。 D