ppts.net
当前位置:首页>>关于vb编程!在线等答案!!!!!!!!!的资料>>

vb编程!在线等答案!!!!!!!!!

1.c 2.b 3.a 4.d 5.c 6.a 7.b 8.c 9.a 10.c(这题不是很确定) 11.a 12.d 13.c 14.b 15.c 16.d 17.b(这题不是很确定) 18.a 19.c 20.b 这些是自己做的……有的还没学所以已经标定不确定了。 虽然不能保证100%正确,但……也是我一题题做的,大多数都是...

代码中的 i = n 是个逻辑表达式,并不是语句,是检测i是否等于n,而不是让i去等于n。换句话说 Do Until i = n 的意思是如果i等于n就结束循环。因此,假如你运行后输入3的话,那么程序的运行流程是: n=3 Mysum=1 循环开始: 第一次循环:i=i+1=0...

Private Sub Command1_Click() 'Text1.Text票价 'Text2.Text月份 'Text3.Text订票数 If Text2.Text = 7 Or Text2.Text = 8 Or Text2.Text = 9 Then If Text3.Text >= 20 Then MsgBox (Text1.Text - Text1.Text * 0.15) * Text3.Text ElseIf Text...

Dim n As IntegerPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then n = 0 Dim s As String s = Text1.Text For i = 1 To Len(s) If Val(Mid(s, i, 1)) Mod 2 0 Then n = n + 1 End If Next i Text2.Text = n End IfEnd Sub

list和text都不需要设置就可以直接添加或填上数字的啊

Private Sub Command1_Click() Dim i%, k% For i = 1 To 1000 If Int(Sqr(i)) = Sqr(i) Then Print i,: k = k + 1 If k Mod 5 = 4 Then Print: k = 0 Next End Sub Private Sub Command2_Click() Dim OS%, JS%, m$ m = InputBox("请输入一个整数...

程序哪会和你说yes or no 啊,肯定是true flase, 然后 and 优先级高于 or 所以只要满足a

b=x\10-10*a

1、B(还可以以编译程序的方式运行) 2、A(word、excel、access都可用VBA) 3、B(exp:指数函数,返回值是小数;left:字符串;ucase:字符串;acs:整数;int:整数(或货币);len:整数;sgn:整数;str:字符串;rtrim:字符串;fix:整数...

1.? 2`157 3`FALSE 4`5 0 5`TEXT1.TEXT C2 ,caption 6`1 preserve i m=k a(ubound(a)) 7`option 9 i then i+j print 8`0 9`opreserve 10`1 11`k=m 12`a(alubound(a)) 13`option 14`9 15`i 16`then 17`i+j 18`print 19`计算8+7+6+5+4+3+2+1的结...

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