以下程序的功能是求“X^3*5”表达式的值,其中X的值由文本框Text0输入,运算的结果由文本框Textl输出。
运行上述程序时,会有错误。错误的语句是
A.Dim x As Integer
B.Me.TextO=x
C.Me.Textl=y
D.Dim YAs Long
第1题:
假设x的值为5,则在执行以下语句时,其输出结果为"Ok"的Select Case语句是( )。
第2题:
设窗体上有一个文本框,名称为Textl,程序运行后,要求该文本框只能显示信息,不能接收输入的信息,以下能实现该操作的语句是( )。
A.Textl.MaxLength=0
B.Textl.Enabled=False
C.Textl.Visible=False
D.Textl.Width=0
第3题:
有以下程序 #include <stdio.h> main() { int x; scanf("%d",&x); if(x<=3); else if(x!=1O) printf("%d\n",x); } 程序运行时,输入的值在______范围才会有输出结果。
A.不等于10的整数
B.大于3且不等10的整数
C.大于3或等于10的整数
D.小于3的整数
第4题:
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程: Private Sub Command1 Click( ) X!=Val(Text1.Text) Select Casc x Case Is<-10,Is>=20 Print"输入错误" Case Is<0 Print 20-x Case Is<10 Print 20 Case Is<=20 Print x+10 End Seleet End Sub 程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。
A.5
B.20
C.25
D.输入错误
第5题:
若执行下述程序时,从键盘输入的数据是3和6,则程序的输出结果是( )。 #include <stdio.h> void main() {int x,y,z; scanf("%d%d",&X,&y); z = y + x; if (x<y) z = y + x; printf("%d",z); }
A.9
B.3
C.0
D.有语法错误
第6题:
窗体上有一个文本框,其Name属性为Text1,如图1所示,并有如下事件过程:上述程序的运行结果是( )。
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 语法错误
D. 在文本框Text1中输出不定值
第7题:
在窗体中使用一个文本框名为x.接受输入值,有一个命令按钮test,事件代码如下: Private Sub test_Click y = 0 For i = 0 To Me!x y = y + 2 * i + 1 Next i MsgBox y End Sub 打开窗体后,若通过文本框输入值为3,单击命令按钮,输出的结果是 【12】 。
第8题:
在窗体中有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下: Private Sub Commandl Click( ) ForI=1 T04x=3Forj=1 T0 3Fork=l T0 2x=x+3NextkNextjNextITextl.value=Str(x)End Sub打开窗体运行后,单击命令按钮,文本框Textl输出的结果是( )【考点4 VBA流程控制语句】
A.6
B.12
C.18
D.21
第9题:
在考生文件夹下有一个工程文件sjr4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值:z=(x+2)^2+(X+3)^3+(X+4)^4+…+(X+N)^N其中N和X的值通过键盘分别输入到文本框Textl、Text2中。之后如果单击标题为“计算”、名称为Commandl的命令按钮,则计算表达式的值2,并将计算结果显示在名称为Labell的标签中。
在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符,而应使用函数xn进行幂运算。程序至少运行一次,按照下图输入数据,使X=10,N=5,单击“计算”按钮,计算z的值,并将结果显示在标签Labell中,否则没有成绩。最后.程序按原文件名存盘。
【解析】
【解题思路】通过For循环语句实现xn()的幂运算;Click事件过程中通过Val()函数实现字符类型向数值型的转换,通过循环语句及调用xn()函数,获得函数返回值,实现表达式的运算结果;运用Call语句调用SaveResuh函数对结果进行保存,涉及文件的Open、Cbse和Output操作,最后将结果保存在文件夹下的out,*.dat文件中。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:分析并编写程序代码。
参考答案
Private Function xn(a As Single,m As Integer)
Dim i As Integer
tmp=1
For i=1 TO m
tmp=__tmp*a________?求ai的结果
Next
xn=_____tmp_____?返回计算结果
End Function
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim t As Single
Dim S,X As Single
n=Val(Text1.Text)’将数字字符转换为数值
x=Val(Text2.Text)'读取n.xm值
z=0
For i=2 To n
t=x+i
z=z+__________调用xn函数求ti
Next
Label1.Caption=__________?将结果显示在Labell
Call SaveReSult
End Sub
Private Sub SaveReSult()
Open App.Path&"\out4.dat"For Output
As#1
Print #1,Labell1.Caption
Close #1
End Sub
步骤3:按照题目要求调试并运行程序,如图所示。
步骤4:关闭程序后,按照题目要求保存工程和窗体。
第10题:
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:
程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。
第11题:
语句print(x,y)()。
第12题:
不等于10的整数
大于3且不等于10的整数
大于3或等于10的整数
小于3的整数
第13题:
在窗体中有一个文本框Test1,编写事件代码如下: Private Sub Form_Click() X=Val(InputBox("输入X的值")) Y=1 If X<>0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是( )。
A.1
B.2
C.3
D.4
第14题:
下列描述中,错误的一条是______。
A.已知a=3、b=2、c=l,则表达式(a>b)气的值为1
B.C语言的表达式能构成语句
C.表达式(x1=3*5,x1*4),x1+5的值为20
D.表达式x1=(b=4)+(c=6)的值为6
第15题:
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:
Private Sub Commandl一Click()
x!==Val(Textl.Text)
Select Case x
Casc Is<-10,Is>=20
Print“输入错误”
Case Is<0
Print 20 x
Case ls<10
Print 20
Case Is=20
Print x+10
End Select
End Sub
程序运行时,如果存文本框中输入一5,则单击命令按钮后的输出结果是
A.5
B.20
C.25
D.输入错误
第16题:
窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下:
Private Sub Commandl_Click()
For i=1 To 4
x=3
For j=l to 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Textl.Value=Str(x)
End Sub
运行以上事件过程,文本框中的输出是( )。
A.6
B.12
C.18
D.21
第17题:
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除 文本框的内容,在横线处应填写( )。
A. x%4=1 And x%5=2
B. x%4=1 Or x%5=2
C. x Mod 4=1 And x Mod 5=2
D. x Mod 4=1 Orx Mod 5=2
第18题:
在窗体中有一个文本框Textl,编写事件代码如下:
Private Sub Form. Cl ick() ’
X=val(Inputbox(“输入X的值”))
Y=1
If X<>0 Then Y:2
Textl.Value=Y
End Sub
打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是
A.1
B.2
C.3
D.4
第19题:
在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下: Private Sub Commandl一Click( )Dim i,j,X For i=1 TO 20 step 2 X=0 For j=i TO 20 step 3 X=X+1 Next j Next i.Textl.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。
A.1
B.7
C.17
D.400
第20题:
在窗体中有一个文本框Textl,编写事件代码如下: Private Sub Form. Click( ) X=val(Inputbox(‘‘输入x的值‘‘))Y=1IfX◇0 Then Y=2Textl.Value=YEnd Sub打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是( )。【考点4 VBA流程控制语句】
A.1
B.2
C.3
D.4
第21题:
在窗体中有一个文本框Testl,编写事件代码如下: Private Sub Form. Click( ) X=val(Inputbox(”输入x的值”))Y=1 If X<>0 Then Y=2Text1.Value=YEnd Sub. 打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是( )。
A.1
B.2
C.3
D.4
第22题:
(26)设窗体上有一个名为Text 1的文本框和一个名为Command 1的命令按钮,并有以下
事件过程:
Private Sub Commandl Click()
x!=Val(Text 1.Text)
Select Case x
Case Is<-10,Is>=20
Prini"输入错误"
Case Is<0
Print 20-x
Case Is<10
Print 20
Case Is<=20
Print x+10
End Select
Bud Sub
程序运行时,如果在文本框中输入一5}则单击命令按钮后的输出结果是
A)5
B)20
C)25
D)输入错误
第23题:
学生信息窗体”上有一个文本框控件,文本框的名称是:Text0,在宏的表达式中要引用这个文本框的值,下面正确的是()