单击窗体时，下列程序段的执行结果为（)。Private Sub Form_Crick（)Line（200,200)-（400,400)Print"+

相似题目

• 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Static x As Integer Stati cy As Integer y=1 y=y+5 x=x+5 Printx；y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）

  A . 1516 B . 156 C . 1515 D . 56

  查看最佳答案

• 下列程序段的执行结果为（）https://assets.asklib.com/images/image2/2017060615444147351.png

  A . 5 B . 25 C . 0 D . 16

  查看最佳答案

• 下列程序段的执行结果是（）。

  A . aaaaaa、abc、dec B . aaa、abc、dec C . aaa、abc、cde D . aaa、abc、ddc

  查看最佳答案

• 下列程序段的执行结果为（）https://assets.asklib.com/images/image2/2017060614204686051.png

  A . 10 B . 30 C . 10，30 D . 30，10

  查看最佳答案

• 运行下列程序，单击窗体后在窗体上显示的结果是_______。PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=-5y=-4IfNotx>0Thenx=y-1Elsey=x+4EndIfPrintx-yEndsub（5.0分）

  查看最佳答案

• 下列VBA程序段的执行结果为 。I = 1Do While I<=10 SUM = SUM + II = I + 1LoopDebug.Print SUM

  查看最佳答案

• 单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜

  单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End Sub A．23 47 B．5 11 C．10 22 D．23 29

  查看最佳答案

• 设 int x=0,y=-1;则执行下列程序段的输出结果为（）;

  查看最佳答案

• 窗体中有一个名称为txtNoteEdit的文本框和一个名称为cmdCut的命令按钮，编写如下程序段：PrivateSubcmdCut_Click()st=txtNoteEdit.SelTexttxtNoteEdit.SelText=&quot;&quot;EndSub当单击命令按钮后，程序执行的效果是()

  A．将txtNoteEdit中的所有内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切 B．将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit中所有的内容清除，实现了剪切 C．将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切 D．以上说法都不正确

  查看最佳答案

• （8 ）在窗体上先画 1 个名为 Text1 的文本框和平个名为 Label1 的标签 , 再画 1 个名为 OP1 的有 4 个单选按钮数组 , 其 Index 属性按季度顺序为 0 ∽ 3 （见图 A-5 ）。在文件 sales.txt 中按月份顺序存有某企业某 年12 个月的销售额。要求在程序执行时，鼠标单击 1 个单选按钮，则 Text1 中显示相应季度的销售总额 ， 并把相应的文字显示在标签上。图 A-6 是单击 “ 第 3 季度 ” 单选按钮产生的结果。请填空。

  <img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/d87865e5fc7f76c0d7c74e1a389668f7.gif' /> Dim sales （—— ） As Long Private Sub Form__Load （） open “ sales.txt ” For Input AS 1 For k=1 To 12 Input 1,sales （k ） Next k Close 1 End Sub Private Sub ——（Index, AS Integer ） Dim sum AS Long ,k AS Ingeger,month AS Ingeger sum=0 month=Index*—— For k=1 To 3 month=month+1 sum=sum+sales （month ） Next k Label1.Caption=Opl （Index ） . Caption &amp; “ 销售总额： ” Text1=sum End Sub

  查看最佳答案

• 下列程序段的执行结果为（)。a=1b=0Select Case a Case 1 Select Case b Case 0 Print"**1**

  下列程序段的执行结果为()。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print"**1**" Case 1 Print"**1**" End Select Case 2 Print"**2**" End Select A．**0** B．**1** C．**2** D．0

  查看最佳答案

• 在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。

  要求：请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 <img src='https://img2.soutiyun.com/ask/uploadfile/11295001-11298000/229ab7608fb7e13708f0c7f1a5cb0195.png' /> <img src='https://img2.soutiyun.com/ask/uploadfile/11295001-11298000/ebea5ffb0f494a11098630147544c21a.png' />

  查看最佳答案

• （6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时 ， 单击其中一项 ， 即可把该项与最上面的一项交换 。例如 ： 单击 图 1 中的 “ 重庆 ” ， 则与 “ 北京 ” 交换 ， 得到 图2 的结果。下面是可实现此功能的程序，请填空。

  <img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/25b92cd3b1167e5d52bc29ee7a6d7e48.gif' /><img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/3e5d1fedf777f05c1788c4e8da2f65dd.gif' /> Private Sub Combo1_Click() Dim temp temp = Combo1.Text [6] = Combo1.List(0) Combo1.List(0) = temp End Sub

  查看最佳答案

• 单击命令按钮时，下列程序代码的执行结果为Public Sub Procl（n As Integer,ByVal m As integer)n=

  单击命令按钮时，下列程序代码的执行结果为 Public Sub Procl(n As Integer,ByVal m As integer) n=n Mod 10 m＝m\10 End sub Private Sub Commandl_Click() Dim x AS Integer,y AS Integer x=12:y=24 Call Procl(x,y) Print x;y End sub A．12 24 B．2 24 C．2 3 D．12 2

  查看最佳答案

• ◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivatSuCommand1_Click（）。程序运行时，单击Command1，则在窗体上输出的结果是（）

  A．分支1 B．分支2 C．分支3 D．无任何输出

  查看最佳答案

• 窗体上有一个名称为Command1的命令按钮，并有如下程序：程序运行后单击命令按钮Command1，输出结果是（）

  A．0 B．-1 C．-2 D．-3

  查看最佳答案

• 执行下面的程序,当单击窗体时,显示在窗体上第一行的内容是 ,第二行的内容是 。 Private Sub Command1_Click（） Else k = k + 1 End If Loop End Sub

  查看最佳答案

• 当sub过程value形参表中存在byval关键字时,执行本程序,单击窗体在窗体上显示的第一行内容是_____; 若将形参表的byval关键字删掉,在执行本程序,单击窗体后在窗体上显示的第一行内容是_____;第二行内容是_____。 Private Sub value（） Print "x=";x, "y=";y End Sub

  查看最佳答案

• 假定有以下函数过程：在窗体上画一个命令按钮，然后编写如下过程：程序结束后单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，单击确定按钮后在窗体上输出的结果为（）

  A．ABCDEFG B．abcdefg C．GFEDCBA D．gfedcba

  查看最佳答案

• 设窗体上有一个名为List1的列表框，并编写下面的事件过程：程序运行时单击一个列表项，则产生的结果是（）

  A．该列表项被移到列表的最前面 B．该列表项被删除 C．该列表项被移动到列表的最后面 D．该列表项被删除后又在原位置插入

  查看最佳答案

• 窗体中有两个命令按钮：“显示”（控件名为CmdDisplay)和“测试”（控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click（) Answer= 【6】 （"隐藏按钮") IF Answer=vbOK thenC

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（）。

  A．输出0 B．输出25 C．输出45 D．无任何输出

  查看最佳答案

• 在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出&ldquo;单击图片框&rdquo;；每单击图片框外的窗体一次，就在窗体中输出&ldquo;单击窗体&rdquo;，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文

  查看最佳答案