搜题请搜索小程序“爱下问搜题”
问题 单项选择题

如某些特殊问题因条件限制不能处理时，必须停止其工作并向（）汇报。

A.安全调度

B.通风调度

C.矿值班室

D.队值班

答案

参考答案：A

单项选择题

A．口淡
B．口苦
C．口涩
D．口甜
E．口咸

寒水上泛可见
查看答案
填空题

有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是 【13】 和 【14】 ，最后一行的结果是 【15】 。
Type type_a
chr1 As String*1
num1 As Integer
End Type
Private Sub Command1_Click()
Dim testdata As type_a, n As Integer
Dim f1 As Integer, c()As String*1
f1=FreeFile
Open "d:\data. txt" For Random As #f1 Len=Len(testdata)
n=1
For I=97 To 102
ReDim Preserve c(n)
c(n)=Chr(I)
testdata. chr1=c(n)
testdata. num1=I
n=n+1
Put #f1, , testdata
Next I
Seek #f1, 1
For I=1 To UBound(c)
Get #f1, , testdata
List1. AddItem testdata. chr1 & testdata num1
Next I
List1. AddItem UBound(c)
Close
End Sub
查看答案