单选题在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str＝UCase(Chr(KeyAscii)) n＝Len(str) Text1．Text＝String(n，str) End Sub 程序运行后，如果在文本框中输入字母“P”，则在文本框中显示的内容为( )。
单选题窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command1_Click()str1=Trim(Combo1．Text)flag=0If str1＜＞""ThenFor i=0 To Combo1．ListCount-1If str1=Combo1．List(i) ThenCombo1．RemoveItem i：Combo1．Text=""flag=1End IfNextIf flag=1 ThenCombo1．AddItem Combo1．TeXtEnd IfEnd Sub程序中存在问题，以下关于程序问题的叙述中，正确的是
单选题下面的语句用Array函数为数组变量a的各元素赋整数值： a=Array(1，2，3，4，5，6，7，8，9) 针对a的声明语句应该是( )。
单选题在窗体上画一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() n=0 For i=0 To 10 X=2*i=1 IfX Mod 3=0 Then n=n+1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是
单选题设a=“MicrosoftVisualbasic”，则以下使变量b的值为“Visualbasic”的语句是
单选题在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为______ 。
单选题在窗体上画一个命令按钮，名称为Comraandl。单击该命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$, 8) c$=Mid(a$, 1, 8)+b$ MsgSox a$, 1, b$ End Sub 则在弹出的消息框的标题栏中显示的信息是______。
单选题已知通用对话框名为Cd1g，则执行下列的( )语句，将弹出“帮助”对话框。
单选题有如下程序段：
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print G(a)
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为（ ）。
单选题在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序{{U}}
{{/U}}。 Private Type student
StuName As String * 10 StuGrade As String
* 10 StuAge As Integer End
Type Private Sub Form_Click() Dim s As
student Open "c:/student.txt" For Random As #1
Len = Len(s) For i = 1 To 1
s. StuName = InputBox("请输入姓名")
s. StuGrade = InputBox("请输入年级号")
s. StuAge = Val(InputBox("请输入年龄"))
Next i Close #1
End Sub
A. Print #1,s
B. Print #1,i
C. Put #1,,s
D. Put #1,,i
单选题请阅读程序：
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m);
m=m+1
For j=1 To i
Print "*";
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是______。
单选题窗体上有1个Timerl计时器，1个Shapel形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Timer 1 Timer() Private Sub Form_Load() If flag Then flag=True Shape1．Height=Shape1．Height*2 Timer1．Enabled=True Shape 1．Width=Shape 1．Width*2 Timer1．Interval=1000 Else End Sub Shape 1．Height=Shape 1．Height*0．5 Shape 1．Width=Shape 1．Width*0．5 End If flag=Not flag End Sub执行程序所产生的效果是
单选题要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MuhiSdect属性设置为
单选题有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As
Long k= 1 num = Abs(num) do
while num k = k * (num Mod 10)
num= num/10 Loop fn=kEnd
Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是
______。Private Sub Command1_Click() Dim n As
Long Dim r As Long n = CLng(n)
r = fn(n) Print rEnd Sub
A. 12
B. 6
C. 3
D. 1
单选题在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5/10 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub
单选题把实体一联系模型转换为关系模型时，实体之间的联系在关系模型中是通过 ______。
单选题计时器Interval属性用来设置计时器事件之间的间隔，以毫秒为单位，取值范围为0～65535。故A选项正确。
单选题下列程序段( )能够正确实现条件：如果X＜Y则A=15，否则A=-15。
单选题有如下程序：
Private Sub Command1_Click()
a$="A WORKER IS HERE"
x=Len(a$)
For i=1 To x-1
b$=Mid$(a$，i，3)
If b$="WOR"，Then S=S+1
Next
Print S
End Sub
单击命令按钮，程序运行结果为
单选题下列程序执行后，输出结果是( )。
For n=3 To 1 Step-1
x＄=String＄(n,"#")
Print x＄
Next n