更多"下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这"的相关试题:
[填空题]下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Inteeer
Sinx As Single
Cosx As Single
End Tyre
Dim Ksc As Ane
Private Sub Form Click（ ）
Dim Y As Single
Open“c:/Data1.txt”For Random As #2 Len=10
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc=Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
【15】
Next
Close #2
End Sub
[填空题]下列事件过程的功能是：建立一个名为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
Open "c:/Data1.txt" For Random As #2 Len=10
Y=3.14159/180
For i=1 T0 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
______
Next
Close #2
End Sub
[单项选择]求一个角的正弦函数值的平方。能够实现此功能的函数是( )。
A. sqofsina(x)
B. return(sin(x)*sin(x)),double sqofsinb(x)
C. return(sin((double)x)*sin((double)x));double sqofsinc(x)
D. sqofsind(x)
[单项选择]
设有一个命令按钮Commsand1的事件过程以及一个函数过程。程序如下：
Private Sub Command1_Click(0
Static x As Integer
x=f(x+5)
Cls
Print x
End Sub
Private Funtion f(x As integer)As Integer
F=x+x
End Funtion
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是（）。
A. 10
B. 30
C. 60
D. 70
[填空题]下列事件过程的功能是：通过Form _ Load事件给数组赋初值为35、48、15、22、67，Form_ Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。
Dim Arr ( )
Private Sub Form _ Load( )
【 】
End Sub
Private Sub Form _ Click( )
【 】
If Int(x/3)=x/3 Then
Print x
End If
Next x
End Sub
[填空题]有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click0
Dim X As Single,y As Single
Open"NM1.txt"For Input As #1
Open"NM2.txt"For OutputAs#2
Do While Not EOF(1)
______
Print X
y=x^2
Print#2,x,f
Printy
Loop
Close#1,#2
End Sub
[填空题]
利用SQL语句的定义功能建立一个课程表，并且为课程号建立主索引，语句格式为：CREATE TABLE 课程表(课程号 C(5)（），课程名C(30))。
[填空题]在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。
Sub SORT( )
Dim a(1 To 10)
For i=1 To 10
a(i)=Val(InputBox(" " ，" "，0))
Next i
For i=【 】
k=i
For j=【 】
If a(k)＞a(j)Then 【 】
If k＜ ＞i Then
b＝a(k)
a(k)＝a(i)
a(i) =b
End If
Next j
Next i
For k=1 To 10
Print a(k)
Next k
End Sub
[单项选择]在窗体上画一个列表框、一个文本框和一个按钮，然后编写如下事件过程：
Private Sub Form_Load（ ）
List.AddItem“357”
List.AddItem“246”
List.AddItem”123”
List.AddItem”456”
TEXT1.Text="
End Sub
Private Sub Command1_C1ick（ ）
List.Listindex=3
Print List.Text+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中“456”，则输出结果为( )。
A. 789123
B. 456789
C. 789456
D. 12345
[单项选择]在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程：
Private Sub Form_Load（ ）
List.AddItem“357”
List.AddItem“246”
List.AddItem“123”
List.AddItem“456”
TEXT1.Text="
End Sub
Private Sub Command1_Click（ ）
List.Listindex=3
Print List.Text1+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为( )。
A. 789123
B. 456789
C. 789456
D. 1245
[单项选择]假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是______。
A. Click
B. Load
C. MouseDown
D. GetFocus
[单项选择]在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click（ ）
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，则窗体上输出( )。
A. 6
B. 7
C. 8
D. 9
[单项选择]在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程。
Private Sub Form_Load（ ）
List.Addltem"357"
List.Addltem"246"
List.Addltem"123"
List.Addltem"456"
Text1.Text=""
End Sub
Private Sub Command1_C/ick（ ）
List. ListIndex=3
Print List.Text+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为______。
A. 789123
B. 456789
C. 789456
D. 1245
