mdsk.net
当前位置:首页 >> PrivAtE SuB Form_CliCk() DIM x,y As SinglE DIM ... >>

PrivAtE SuB Form_CliCk() DIM x,y As SinglE DIM ...

Private Sub Form_Click() DIM x,y As Single DIM z As Integer X=InputBox ("ENTER a score") Do whlie x>=0 y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0Then z=1 End If y=y/z MsgBox y End Sub

这是一段比较弱的代码: 继续套用该段代码: X=val(InputBox ("ENTER a score")) Do whlie x>=0'当x>=0时继续循环,如果x不>=0则跳出循环 y=y+x z=z+1 x=val(InputBox("Enter a score")) Loop 应该用下面的: Do whlie 1 X=val(InputBox ("ENTER...

inputbox的返回值是string字符串型的 所以类型不匹配~ 修改为 x=Csng(InputBox("请输入成绩", "学生成绩")) csng()是一个将括号内表达式转换为single型数据的函数

private sub form_click() &&表单单击事件 Dim b As Integer,y As integer &&定义数组b为整型,y为整型 Call Mysub2(3,b) &&调用过程Mysub2,并传递参数3,b y=b:Call Mysub2(4,b) &&调用过程Mysub2,并传递参数4,b Print y+b &&输出Y+B的值 End Su...

答案是3,16

j = Val(s1)‘这句是将字符型变量s1转换成数值型赋给变量j n(j) = n(j) + 1'这句是使数组n的j元素数值加1

第1题的输出结果是$$$ Tab[(n)]可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。 例如Print tab(10);"$",$将在第10列出现

Call Procl(x,x,z) 这是个调用过程的语句,他把x,y,z的值传递给procl这个过程,在这个过程中执行相应的操作。Call Procl(x,x,z) 应该是Call Procl(x,y,z)吧,你打错了哈 下面给你一个列子: 判断三个数中最大的那个数: Private Sub Form_Click...

Private Sub Form_Click() Dim sum As Single, n As Integer sum = 0 For n = 1 To 9 Step 2 aa (n) sum = sum + nt Next n Print sum End ...

第一个程序运行结果: A 37 1+6+8+10+12=37 判断题: 1 B 正确 Do和Loop关键词必须成对使用 2 B 正确 (此题表意不清楚,默认状态 False=0 ,True=-1),但是必须是interger 才行 3. B 正确 一个工程即一个程序,程序只有一个入口点.即MAIN函数.但...

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com