首页 > 高职专科

题目内容（请给出正确答案）

[主观题]

执行下面的程序，击窗体后在窗体上显示的第一行结果是（），第三行结果是（）。Private Sub Form_cl

执行下面的程序，击窗体后在窗体上显示的第一行结果是（），第三行结果是（）。

Private Sub Form_click()

Dim mystr, mystr1, mysrr2 As String

mystr1 = "B"

For i = 1 To 3

mystr2 = LCase(mystr1)

mystr1 = mystr1 & mystr2

mystr = mysre & mystr1

Print mystr

mystr1 = Chr(Asc(mystr1) + i)

Next i

End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“执行下面的程序，击窗体后在窗体上显示的第一行结果是（），第三…”相关的问题

第1题

下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整

下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【】 End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【】 End Sub Private Sub Form_Db1Click() 【】 End Sub

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第3题

在窗体上画两个组合框，其名称分别为Combo1、Comb02，然后画两个标签，名称分别为Label1、 Labe12。要

求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。 Private Sub Comb01_Click() Call ShowItem(Combo1，Labe11) End Sub Private Sub Combo2_Click() Call ShowItem(Combo2, Labe12) End Sub Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) ______.Caption=______.Text End Sub

点击查看答案

第4题

在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2

中输入lmn，那么在文本框Text1中显示的内容将是【】。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAseii As Integer) Text1.Text=Text1.Text+Chr(KeyAscii-5) End Sub

点击查看答案

第5题

在MDI应用程序中，每个子窗体的菜单在MDI父窗体上显示，而不是在子窗体本身显示。（)

点击查看答案

第6题

Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j>

Option base 1 Private sub command1_click（) Dim a（3,3) For I=1 to 3 For j=1 to 3 If j＞

Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j＞1 and I＞1 then a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else a(I,j)=I*j end if print a(I,j);” “; next j print next I end sub 程序运行后，单击命令按钮后，在窗体显示的结果是？

点击查看答案

第7题

在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。

当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在【】和【】处填入适当的内容，将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【】 () Label1. Caption=【】 End Sub

点击查看答案

第8题

窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是【】。 Private Sub Command1 _ Cli

ck() Print"北京"； End Sub Private Sub Command2 _ Click() Print"南京"； End Sub Private Sub Form. _ Load() CommandCancel＝True Command1．Cancel=True End Sub

点击查看答案

第9题

在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次

增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。 Private Sub Form_Load() Forml．Caption =“字体变化示范” cmdMax．Caption=“字体变大” cmdMin．Caption=“字体变小” End Sub Private Sub cmdMax_Click() 【】 Forml．Print”字体由小变大” End Sub Private Sub cmdMin_Click() 【】 Forml．Print“字体由大变小” End Sub

点击查看答案

第10题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮

。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。请在【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案

第11题

在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框T

ext1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If______ Then Text1.FontUnderline=Tree ElseIf______Then Text1.FontUndefiine=False End If End Sub

点击查看答案

湘ICP备2024047451号营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）