设计在∫1=50Hz电源上运行的三相感应电动机现改为在电压相同频率为60Hz的电网上,其电动机的()。
第1题:
设计在f=50HZ电源上运行的三相感应电动机现改为在电压相同频率为60HZ的电网上,其电动机的()。
A.Tst减小,Tmax减小,Ist增大
B.Tst减小,Tmax增大,Ist减小
C.Tst减小,Tmax减小,Ist减小
D.Tst增大,Tmax增大,Ist增大
第2题:
在窗体上添加文本框Text1,然后编写下列程序: Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后,在文本框中依次输入1、2、3、a、b、c,单击命令按钮,则窗体上显示的内容是
A.23BCD
B.ABC
C.!@#ABC
D.123abc
第3题:
在窗体上画—个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容是 ______。
A.Visual Basic
B.程序设计
C.A程序设计
D.Visual Basic程序设计
第4题:
在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load( ) Show TextText = " " TextSetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _ As Single) Print "程序设计" End Sub Private Sub Text1_Ke!tDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容是 ______。
A.Visual Basic
B.程序设计
C.A程序设计
D.Visual Basic程序设计
第5题:
编写如下事件过程: Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i>= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后,单击窗体,则窗体上显示的内容是
A.rehcaet
B.tahreee
C.themee
D.eerthea
第6题:
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A.0 0
B.1 1
C.2
D.1 2
第7题:
Private Sub Form_Activate()
Forj=1 to 3
x=3
ForI=1 to 2
x=x+6
NextI
Nextj
Print x
End Sub
程序运行后,窗体上显示的结果为上______。
第8题:
有如下程序。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call Sub1(a, b)
End Sub
Sub Sub1(x As Single, y As Single)
t=x
x=t \ y
y=t Mod y
End Sub
在调用运行上述程序后,a和b的值分别为
A.0 0
B.1 1
C.2 2
D.1 2
第9题:
设有如下程序; Private Sub Form_ Load() Show Text1.Text = " " Text1.SetFocus End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As SinglE)Print “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print "Visual Basic" End Sub程序运行后,如果在文本框中输入字母a(即直接按a键),然后单击窗体,则在窗体上显示的内容是______。
A.Visual Basic
B.程序设计
C.Visual Basic程序设计
D.A程序设计
第10题:
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,y As Integer x = 41: y = 54 Call sub1(x,y) x = x + 1 Print x; y End Sub Private Sub sub1(n As Integer, ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.41 54
B.2 54
C.1 3
D.42 3
第11题:
有如下Sub过程:
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x:
End Sub
以下是调用它的事件过程,程序运行后,单击命令按纽Command1三次,输出结果为【 】。
Private Sub Command1_Click()
Ind 2
End Sub
第12题:
K<sub>t</sub>+1=I<sub>t</sub>-(1-δ)K<sub>t</sub>
K<sub>t</sub>+1=It+(1-δ)K<sub>t</sub>
K<sub>t</sub>+1=I<sub>t</sub>+(1+δ)K<sub>t</sub>
K<sub>t</sub>+1=I<sub>t</sub>-(1+δ)K<sub>t</sub>
第13题:
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第14题:
有如下程序: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single,y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A.0 0
B. 1 1
C.2 2
D.1 2
第15题:
设窗体上有一个名为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer,X As Single,Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗本上显示的内容是
A.Visual Basic
B.程序设计
C.Visual Basic程序设计
D.a程序设计
第16题:
假定有如下的Sub过程:
Sub Sub1(x As Single,y As single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a,b
Print a;b
End Sub
程序运行后,单击命令按钮,输出结果为
A.
B.
C.
D.
第17题:
假定有如下的Sub过程:
Sub Sub1(x As Single, y As single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a,b
Print a;b
End Sub
程序运行后,单击命令按钮,输出结果为
A.54
B.] 1]]1
C.] 1.2]]5.4
D.] 1.25]]1
第18题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Call sub1(-15.1,2.54) End Sub Public Function sub1(a As Integer,ByVa1 b As String) As Integer a=Val(B)sub1=a Print sub1 End Function 程序运行后,单击命令按钮,在窗体上输出的是
A.3
B.2
C.-15
D.提示出错
第19题:
在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Textl.Text="" Textl.Set Focus End Sub Private Sub Form_MouseUp(Button As Inateger,Shift As Integer,X As Single,Y As Single) Frint"程序设计" End Sub Private Sub Textl_KeyDown(KeyCode As InteSer,Shin As Integer) Print"VisualBasic"; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容是______。
A.Visual Bask
B.程序设计
C.A程序设计
D.ViualBasic程序设计
第20题:
在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form Load( ) Show Text1.Text="" Text1.SetFocus End Sub Pfivate Sub Form_MouseUp(BuHon As Integer,Shift As Integer,X As Single,Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer,shift As Integer) Print"Visua1 Basic"; End Sub 程序运行后,如果按“A”键,然后单击窗体,则在窗体上显示的内容是
A.VisualBasic
B.程序设计
C.A程序设计
D.Visual Basic程序设计
第21题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.8
B.2
C.5
D.11
第22题:
在窗体中添加一个命令按钮,编写如下程序: Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub1:";p;m;n End Sub Private Sub Command1_Click() a1=1:b=2:c1=3 Call Sub1(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后,输出结果为
A.Sub: 2 6 4 Main: 2 6 4
B.Sub: 2 6 4 Main: 2 6 4
C.Sub: 2 6 4 Main: 1 2 3
D.Sub: 2 6 4 Main: 2 2 3
第23题:
设计在f1=50Hz电源上运行的三相感应电动机现改为在电压相同频率为60Hz的电网上,其电动机的()。