网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3···，90.请在空白处填上合适的代码，将程序补充完整。 Pivate Type Ang K As Integer Sinx As Single Cosx As Single End Type 定义Ang类型的变量Ksc Pivate Sub Form_Click() Dim Y As Single Open "C:\Datal.txt"For Random As#1 Len=10 Put#1,1,Ksc Y=3.14159/180 For i=1 To 90 Ksc.K=i _______=Sin(i*Y)给变量Ksc的正弦函数值赋值 Ksc.Cosx=Cos(i*Y) Next i Close#1 End Sub
参考答案
更多 “ （12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3···，90.请在空白处填上合适的代码，将程序补充完整。 Pivate Type Ang K As Integer Sinx As Single Cosx As Single End Type 定义Ang类型的变量Ksc Pivate Sub Form_Click() Dim Y As Single Open "C:\Datal.txt"For Random As#1 Len=10 Put#1,1,Ksc Y=3.14159/180 For i=1 To 90 Ksc.K=i _______=Sin(i*Y)给变量Ksc的正弦函数值赋值 Ksc.Cosx=Cos(i*Y) Next i Close#1 End Sub ” 相关考题
考题
下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click（）Dim Y As SingleOpen 【14】Y=3.14159 / 180For I=1 To 90Ksc.K=IKsc.Sinx=Sin（I * Y）Ksc.Cosx=Cos（I * Y）【15】Next IClose #2End Sub
考题
（35）下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3…,90。请在空白处填入适当的内容，将程序补充完整 Pivate 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.Sin=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Next i Close#1 End SubA."‥\Datal.txt"For Random As#1 Len=10 Put#1,i,KscB."‥\Datal.txt"For Random As#1 Len=10 Put#1,Y,KscC."‥\Datal.txt"For Random As#1 Put#1,i,KscD."‥\Datal.txt"For Random As#1 Put#1,Y,Ksc
考题
（34）下列事件过程的功能是：建立一个名为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 SubA."‥\Datal.txt"For Random As#1 Len=10 Put#1,i,KscB."‥\Datal.txt"For Random As#1 Len=10 Put#1,Y,Ksc C."‥\Datal.txt"For Random As#1 Put#1,i,KscD."‥\Datal.txt"For Random As#1 Put#1,Y,Ksc
考题
在名为Form1的窗体上绘制一个文本框，名为Text1，其宽度为1000；再绘制一个水平滚动条，名为HS1。其刻度值的范围是1000～2000。请编写滚动条的Change事件过程，使程序运行后，若移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如下图所示。注意：程序中不能使用任何变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为execise70.vbp，窗体文件名为execise70.frm。
考题
下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整( )。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleDim i As IntegerDim Ksc As AngOpen______Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i*Y)Ksc.Cosx=Cos(i*Y)Next iClose #2End SubA．..\Data1.txtFor Random As #1 Len=10 Put#1,i,KscB．..\Data1.txtFor Random As #1 Len=10 Put#1,Y,KscC．..\Data1.txtFor Random As #1 Put#1,i,KscD．..\Data1.txtFor Random As #1 Put#1,Y,Ksc
考题
在名为Form1的窗体中建立一个命令按钮，名为Cmd1，标题为Show(如下图所示)。编写适当的事件过程，使程序运行后，若单击Show按钮，则执行语句Form1.Print"Show"如果单击窗体，则执行语句Form1.Cls。注意：文件必须存放在考生文件夹中， 窗体文件名为execise351frm，工程文件名为 execise35.vbp。
考题
下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为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 DimA．..\Data1.txtFor Random As #1 Len=10 Put #1,i,KscB．..\Data1.txtFor Random As #1 Len=10 Put #1,Y,KscC．..\Data1.txtFor Random As #1 Put #1,i,KscD．..\Data1.txtFor Random As #1 Put #1,Y,Ksc
考题
在名为Form1的窗体上，绘制一个名为Text1的文本框。设置文本框属性，在文本框中显示“文本框”；再建立一个名为Cmd1，标题为Clear的命令按钮，如下图所示。编写适当的事件过程，使程序运行后，若单击Clear命令按钮，则清除文本框中所显示的信息。注意：文件必须存放在考生文件夹中，窗体文件名为execise5.frm，工程文件名为exeeise5.vbp。
考题
在名为Form1的窗体上建立一个二级菜单，该菜单需要含有、“文件”、 “帮助”两个主菜单项，名称分别为vbFile和vbHelp。其中，“文件”菜单包括“打开”、“关闭”、“退出”3个子菜单项，名称分别为vbOpen、vbClose、vbExit，如下图所示。注意：只建立菜单，不必定义其事件过程；文件必须存放在考生文件夹中，窗体文件名为 execisel.frm，工程文件名为execise1.vbp。
热门标签
最新试卷