mnbn.net
当前位置:首页 >> VB题,答案是怎么出来的 >>

VB题,答案是怎么出来的

要理解Text1_KeyPress事件: Private Sub Text1_KeyPress(K As Integer) Static s As Integer If (Chr(K) < "0" Or Chr(K) > "9") And K 13 Then K = 0 If K = 13 Then s = Val(Text1.Text): Text1.Text = "": Print s; End Sub 1,是光标在Text...

拍给我就行

100200 text属性是字符串类型 左右都是字符串就是+号起连接作用 310 val转换为数值类型 +一边为数值类型 就是四则运算

把题库作为一个字符串,然后就是对字符串的查找处理问题了!可以使用index,left,right,mid等字符串处理函数! 当输入题目后,就在题库字符串中查找匹配的题目,然后根据字符特征码提取答案出来就好了

dim a(15) as string for i=0 to 15 a(i)=char(rnd*(90-65+1)+65) for j=0 to i if(a(j)=a(i)) then i-- exit for endif next j next i 这是第一个 dim x(10) as interage for k=1 to 10 x(k)=k print x(k); '交换前的打印 next k for i=1 to 5 ...

因为x=Int(Rnd)+3 结果为3 满足这个条件 if x^2=9 Then y=x^2-2 28 C 29 B 30 A 31 C 32 A 33 C 34 D 35 D 36 A 37 A Private Sub Command1_Click() X = InputBox("输入姓名") Select Case X Case "张三" MsgBox "学习" Case "李四" MsgBox "生...

文本框字符编号从0开始 Textl.SelStart=2, Textl.SelLength=2 从编号2开始选2个字符就是34. b=len(text1.text) b长度是5 所以 34*5=170

概念题是一题题背的,比如属性、方法、事件等。 程序设计题,是要能举一反三的理解记忆的。

Dim s As String, arry() As Integer, arry1() As String, arry2() As String Private Sub Command1_Click() Dim N As Integer s = InputBox("输入字母", "加密", "") If Len(s) = 0 Then MsgBox "输入字母不能为空!", 48 + vbOKOnly, "警告": ...

dim a i=0 a=array(1,-2,9,0,-1,9) 结果生成数组:a(0)=1、a(1)=-2、a(2)=9、a(3)=0、a(4)=-1、a(5)=9, 执行循环 do k=a(i) for m=10 to k step -2 n=k+m next m print n+m i=i+1 loop while abs(m+n)27 注意这个循环执行的条件是:abs(m+n)27,...

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