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

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

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

定义静态变量,执行此过程时,该变量不会被初始化,而是保持上次调用此过程时的值。

Dim nt As Single Private Sub aa(ByVal n As Single) Dim i As Integer nt = 1 For i = 1 To n nt = nt * i Next i End Sub Private...

Private Sub Command1_Click()Dim a(1 To 10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = i * iiList1.AddItem Str(a(i))NextEnd Sub前面的循环结束的时候next I是11了,a最大才10,所以下标越界

1 2 3 4 5

第一个程序运行结果: 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