UC知道VB两道编程题
来源：百度知道 编辑：UC知道 时间：2024/06/01 13:36:05
（1）建立一个随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3······.
（部分程序省略）
For i = 1 To 90
ksc.k = i
同上.sn= Sn(i * y)
同上.cosx = Cos(同上)
Put #2,i , ksc
Next
Close #2
End Sub
我不明白的是那个Put #2,i , ksc是否能写成Put #2, , ksc，得出的结果是否一样？为什么？
（2）
设在窗体上有个文本框，然后编写如下的实践过程。
private sub text1-keydown(keycode as integer,shift as integer)
const alt =4
const key_f2=&H71
altdown=(shift and alt)>0
f2down=(keycode=key_F2)
if altdown and f2down then
text1.text="BBBBB"
END IF
end sub
上述过程运行后，如果按住（shift+f2）,则在文本框中显示的是？
请详细讲下啊，这个真的很迷茫啊！
请说出每道题的原因，越详细越好，回答特别明了的我会追分的，十分感谢啊！
（部分程序省略）
For i = 1 To 90
ksc.k = i
同上.sn= Sn(i * y)
同上.cosx = Cos(同上)
Put #2,i , ksc
Next
Close #2
End Sub
我不明白的是那个Put #2,i , ksc是否能写成Put #2, , ksc，得出的结果是否一样？为什么？
（2）
设在窗体上有个文本框，然后编写如下的实践过程。
private sub text1-keydown(keycode as integer,shift as integer)
const alt =4
const key_f2=&H71
altdown=(shift and alt)>0
f2down=(keycode=key_F2)
if altdown and f2down then
text1.text="BBBBB"
END IF
end sub
上述过程运行后，如果按住（shift+f2）,则在文本框中显示的是？
请详细讲下啊，这个真的很迷茫啊！
请说出每道题的原因，越详细越好，回答特别明了的我会追分的，十分感谢啊！
(1) 我不明白的是那个Put #2,i , ksc是否能写成Put #2, , ksc，得出的结果是否一样？为什么？
答：一样，请查看 put 在MSDN的说明文档“文件中的第一个记录或字节位于位置 1，第二个记录或字节位于位置 2，依此类推。如果省略 recnumber，则将上一个 Get 或 Put 语句之后的（或上一个 Seek 函数指出的）下一个记录或字节写入。所有用于分界的逗号都必须罗列出来”
（2）按下"shift+f2"什么也不显示，按下ALT+F2则显示"BBBBB".
参看MSDN有关KeyDown事件的说明:
keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中的常数。
shift 是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0 ）、CTRL 键（位 1 ）和 ALT 键（位 2 ）。这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。
altdown=(shift and alt)>0 判断是否按下alt键。这里and运算符代表“位与”操作。
if (shift+f2)内容部分 then
msgbox="?"