求VB实验36和37答案啊~~~

1(2)（x^2+y^2）/2xy:Dim x As Single, y As Single, z As Single Cls x = InputBox("请输入X")y = InputBox("请输入Y")z = (x ^ 2 + y ^ 2) / (2 * x * y)Print "(x*x+y*y)/(2x*y)="; z 1(4)y=ln20+Ix-16I: Dim x As Single, y As Single Cls...

[企业回答] 

Private Sub Timer1_Timer() 这个固定格式，没有好解释的 36、keypress是键盘事件，所有选B 37、move是控件位置移动 mosemove是鼠标移动事件 scroll 滚动条类 change 控件改变

for x=99 to 1 step-2'第一次进入循环时，确定循环变量为x，循环初值为99，终值为1，步长为－2，第二次及以后再来到这一句时，都要把x的值跟终值比较，小于终值后循环结束。s=s+x’第一次进入时s=0+99=99，第二次进入时s=99+97=196，第三次进入时，s=196+96=292...next x'这一步...

strPrime = strPrime & vbTab & CStr(i)End If index = index + 1 End If Next i Print strPrime End Sub Private Function isPrime(ByVal n As Integer) As Boolean If n = 1 Then isPrime = True ElseIf n > 1 Then Dim flag As Boolean, i As Integer flag = True For i = ...

Function IsSushu(N) As Boolean Dim I As Integer For I = 2 To N - 1 If N Mod I = 0 Then Exit For '如果能被2 ~ N-1中任何一个数整除,则不是素数,跳出For循环 Next I If I >= N Then '如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件 IsSushu = True...

Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True Label1.Visible = False End If End If C = UBound(She)If GFangXiang = True Then Exit Sub Select Case KeyCode Case 37 If She(C).F = 2 Then Exit Sub She(C).F = 0 GFangXiang = True Case 38 If ...

Case 36 MsgBox "你的户口所在地： 江西省"Case 37 MsgBox "你的户口所在地： 山东省"Case 41 MsgBox "你的户口所在地： 河南省"Case 42 MsgBox "你的户口所在地： 湖北省"Case 43 MsgBox "你的户口所在地： 湖南省"Case 44 MsgBox "你的户口所在地： 广东省"Case 45 MsgBox "你的户口所在...

控件和引用：在窗口上放置Timer1、Text1，然后引用上“DirectX7 for Visual Basic Type Library。”代码：Dim dx As DirectX7 Dim di As DirectInput Dim Device As DirectInputDevice Dim KeyCodes(255) As StringPrivate Sub Form_Load()Set dx = New DirectX7 Set di = dx.DirectInputCreate S...

For i = 2 To 100 For l = 1 To i If i Mod l = 0 Then k = k + 1 End If Next l if i mod 2=0 then text1=i else text2=i end if print text1 text2 end

子函数sub1第36次被调用，调用过程中，n的值：2 a(1)的值：1 a(2)的值：21 a(3)的值：12 a(4)的值：5 子函数sub1第37次被调用，调用过程中，n的值：1 a(1)的值：1 a(2)的值：22 a(3)的值：12 a(4)的值：5 子函数sub1第38次被调用，调用过程中，n的值：1...