下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()A、96B、97C、65D、64

下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()

  • A、96
  • B、97
  • C、65
  • D、64

相关考题:

下面程序运行后,窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub

执行下面的程序段,x的值为【 】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd Sub

在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single,Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDowA.Visual BasicB.程序设计C.A程序设计D.VisualBasic程序设计

阅读下面的程序:Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后,单击窗体,输出结果为______。

有弹出式菜单的结构如下表,程序运行时,单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。A.Private Sub Form_Click() PopupMenu cut End SubB.Private Sub Command1_Click() PopupMenu edit End SubC.Private Sub Form_Click() PopupMenu edit End SubD.Private Sub Form_Click() PopupMenu cut End Sub

下面程序运行的结果为111 1221 22 2331 32 33 34请在画线处填上适当的内容使程序完整。Private Sub Form_Click()Call [13]End SubPrivate Sub Pl6()End SubPrivate Sub p16()ForI=1 to 4Forj=1 to Ia= [14]Print Tab(j-

在下面的程序中,要求循环体执行四次,请填空。Private Sub Command1_Click()x=1Do While 【 】x=x+2LoopEnd Sub

设程序中有如下数组定义和过程调用语句: Dim a(10)As Integer … Call D(a) 如下过程定义巾,正确的是( )。A.Private Sub p(a As Integer)B.Private Sub p(a( )As Integer)C.Private Sub p(a(10)As Integer)D.Private Sub p(a(n)As Integer)

下面程序的输出结果是【 】。Private Sub Commandl_Click( )Dim a(1 To 20)Dim iFori = 1 To 20a(i) = iNext iFor Each i In a( )a(i) = 20Next iPrint a(2)End Sub

执行下面的程序,消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S,i,1)Next iMsgBox StrEnd Sub

下面程序的输出结果是【 】。Private Sub Form_Click()i=0Do Until 0i=i+1if i>10 then Exit DoLoopPrint iEnd Sub

如下图所示,只执行下列程序后,有Text1.Text=Text1,文本框不能出现“*****”的程序是______。A.Private Sub form_ Load() Text1. Text="*****"End SubB.Private Sub form_ Load() Text1. PasswordChar=“*”End SubC.Private Sub form_ Load() Text1. Visible="*****" End SubD.Private Sub form. Load() Text1. Text= String(5,"*")End Sub

下面程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,B) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End SubA.2.25 1.5B.1.5 2.25C.2.25 3.75D.0.75 1.5

在窗体上画—个名称为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 BasicB.程序设计C.A程序设计D.Visual Basic程序设计

设窗体上有一个名为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 BasicB.程序设计C.Visual Basic程序设计D.a程序设计

下面程序的输出结果是【 】。Private Sub Form_Click()i=0Do Until 0i=i+1if i10 then Exit DoLoopPrint iEnd Sub

设程序中有如下数组定义和过程调用语句:Dim a(10) as integer……Call p(a)如下过程定义中,正确的是A)Private Sub p(a as integer)B)Private Sub p(a() as integer)C)Private Sub p(a(10) as integer)D)Private Sub p(a(n) as integer)

设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A.Private Sub Commandl_Click B.Private Sub Commandl_Click Textl.GotFocus Commandl.GotFocus End Sub End Sub C.Private Sub Commandl_Click D.Private Sub Commandl_Click Textl.SetFocus Commandl.SetFocus End Sub End sub

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch:Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=sMid(ch,k,1) Next k ch=s End Sub A.ABCDEF B.FEDCBA C.A D.F

在下面的程序中,要求循环体执行四次,请填空。Private Sub Commandl_Click()x=1Do While【 】x=x+2LoopEnd Sub

下面的程序是找出50以内所有能构成直角三角形的整数组。阅读下面程序,并完成程序。Private Sub Command1_Click( )For a = 1 to 50For b = a to 50c = Sqr(a^ 2 + b^ 2)If【 】then print a; b; cnext bnext aend Sub

下面程序运行后,输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer,I As Integer Callmysub(a(),5) Mysuba() ForI=1 to 4 PrinA.5101520B.2468C.出错D.0000

在窗体上画了两个按钮控件Command1和Command2,有如下程序: Private Sub Command1_Click() Print "Visual"; End Sub Private Sub Command2_Click() Print "Basic"; End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后,按键盘Cancel键,在窗体上输出的结果是A.BasicB.VisualC.CancelD.True

窗体上有文本框Text1和一个菜单,菜单标题、名称如表,结构见图。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是。A.Private Sub save_Click B.Private Sub save_Click Textl.Text=file.save.Caption Textl.Text=save.Caption End Sub End Sub C.Private Sub file_Click D.Private Sub file_Click Textl.Text=file.save.Caption Textl.Text=save.Caption End Sub End Sub

执行下列程序后,鼠标单击窗体,输出结果为 Private Sub Form_Click() Print"Click": End Sub Private Sub Form_MouseDown(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Up" End SubA.DownUpClickB.CfickDownUpC.DownClickUpD.UpDownClick

下面程序的输出是______。Private Sub Command1_Click() Print 7\3End SubA.3.5B.7C.3D.2

单选题下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()A96B97C65D64