单选题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整( )。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i AS Integer Dim Ksc As Ang Open ______ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) ______ Next i Close #2 End Sub
单选题假定有下列程序段：
For i=1 TO 3
For j=5 To 1 Step-1
Print i*j
Nextj
Next i
则语句Print i*j的执行次数是
____
单选题关于自定义对活框的说法中，正确的是______。
单选题在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i = 1 To 12 Arr1(i)= i Next i For i = 1 To 3 Arr2(i)= Arr1(i * i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是________。
单选题开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做( )。
单选题窗体上有一个列表框和一个文本框，编写下列两个事件过程： Private Sub Form
Load() List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海" Text1.Text=""
End Sub Private Sub List1 Click()
Print Text1.Text+List1.Text End
Sub 程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是{{U}}
{{/U}}。
A.中国北京
B.中国天津
C.中国上海
D.北京中国
单选题下列程序段的输出结果是( )。 x=5 Print x+1；x+1
单选题要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下列能正确实现上述功能的事件过程是
单选题在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox(“请输入日期(1-3)”) t=“旅游景点：”＆IIf(a＞0 And a＜=10,“长城”，“”)&_ IIf(a＞10 And a＜=20，“故宫”，“”)＆IIf(a＞20 And a＜=31，“颐和园”，“”) Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是( )。 A) 旅游景点：长城故宫 B) 旅游景点：长城颐和园 C) 旅游景点：颐和园 D) 旅游景点：故宫
单选题下列对话框有关属性中，用于设置初始的文件目录并返回用户选择的目录的属性是 ______。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Coinmand1 Click()
Dim a$，b$，c$，k％
a="ABCD"
b="123456"
c=""
k=1
Do While k<=Len(a)Or k<=Len(b)
If k<=Len(a)Then
c=c＆Mid(a，k，1)
End If
If k<=Len(b)Then
c=c＆Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是( )。
单选题在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。
单选题下列程序段的执行结果为
____
。
ForX=5 To 1 Step-1
For Y=1 To 6-X
Print Tab (Y+5)；"*"
Next Y
Print
Next X
单选题有如下程序：
Private Sub Form_Click()
Dim s As Integer,p As Integer
p=1
For i=1 To 4
For j=1 To i
S=s+j
Next j
p=p*s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是______。
单选题下列程序段的执行结果为{{U}} {{/U}}。 a=75
If a＞60 Then i=1 If a＞70 Then i=2 If
a＞80 Tnen i=3 If a＜90 Then i=4 Print "i=";i
A. i=1
B. i=2
C. i=3
D. i=4
单选题阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为
单选题下列程序段的执行结果为（ ）。
a=75
If a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a<90 Then I=4
Print "I="；I
单选题已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i，j) Next j Print"第"＆i＆个学生的总分是："；sum Next i End Sub 运行此程序时发现，除第一个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是______。 A) 把sum=sum+score(i,j)改为sum=sum+score(j,i) B) 把sum=sum+score(i，j)改为sum=score(i，j) C) 把外层循环语句"For i=1 To4"改为"For i=1 To 3"；内层循环语句"For j=1 To 3"改为"For j=1 To 4" D) 把sum=0移到"For i=1 To 4"和"For j=1 To 3"之间
单选题表达式Right("Beijing",4)的值是
____
。
单选题某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click()
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。