网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面程序： 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（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A、96B、97C、65D、64” 相关考题
考题
下面程序运行后，窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd 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-
考题
设程序中有如下数组定义和过程调用语句： 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
考题
下面的程序是找出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（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A
96B
97C
65D
64
热门标签
最新试卷
