注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

李建敏 廊坊师范学院信息技术提高班十二期

变是永远不变的

 
 
 

日志

 
 

小米老师问题的解答  

2014-11-06 21:56:29|  分类: 听课整理 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
      美丽之源
      dim a as integer,b as integer, c as inteser, max as integer
      private sub command_click()
      a=val(inputbox("请输入第一个数","输入a",0))
     b=val(inputbox("请输入第二个数","输入b",0))
     c=val(inputbox("请输入第三个数","输入c",0))
     p=a &"," & b & “,” &c
     p=p & "三个数中最大是: "
     max=a
     if b>max then max=b
     if c>max then max=c
     label1.caption=p &max
     end sub
     那么问题来了?
     1、P是干什么的?
      答:解释说明,使输出的界面清晰易懂
     2、双P能不能合并?好处?
      答:能,对结果没有任何影响,分开让别人看更易懂而且在输入时可以防止某行代码过长,简洁美观,符合编码规则。
     3、有几种能写活得方法(N种,目前就会二种,仅限于不超过10的)
     第一种:用inputbox
      a=val(inputbox("请输入第一个数","输入a",0))
     b=val(inputbox("请输入第二个数","输入b",0))
     c=val(inputbox("请输入第三个数","输入c",0))
     第二种: 用text
       a=val(text1.text)
       b=val(text2.text)
       c=val(text3.text)
       val()是将一个字符串类型的转换成数值型的
      4、自动覆盖功能
    private sub form_activate()
       text1.setfocus
      end sub
      private sub text1_gotfocus()
      text1.selstart=0
      text1.sellength=len(text1.text)
      end sub
      解释:(1)activate()是窗体被选为活动窗体时(即焦点在窗体上)的事件,也就是只有单击时才会触发该事件,这也是其与load事件的区别。打个比方:
      有FORM1和FORM2,在form1中输入如下代码:
      Private Sub Form_Load()
      Form2.Show
      End Sub
      在form2中输入如下代码:
      Private Sub Form_Activate()
      Print "123456789"
      End Sub
      此时,运行时,焦点在FORM1上,所以虽然两个窗体都同时显现出来,但FORM2窗体并没有文字 等到单击FORM2(单击窗体上或标题栏均可)时,FORM2上即会出现123456789的字样。 如果把form2中的事件换成Load事件,那么,在开始运行时,FORM2上会直接出现123456789的字样。
    (2) selstart方法就是限制文本框里的字符数。0代表无限,剩下的是几就是几个字符
    (3)sellength 是指VB中text文本的选中长度,有多少要多少。
    (4)setfocus就是获得焦点方法
    (5)gotfocus()是一个事件这是与setfocus区分的最本质的方法,其意思是当得到焦点时你希望发生什么    
       这个挺好玩的,以上只是就有一个文本框的时候,当再添上一个控件时又有不同的体会  
      5、数值类型能不能换?(integer    single     double)
       实验的结果目前是能,也能比较大小
       例如
       dim a as integer , b as integer ,c as single or double
       a=***
       b=***
       c=a+b
       这是完全可以比较大小 ,需要注意的是取值范围,不然会溢出。怎么换都行,注意别溢出就行小米老师问题的解答 -  12期 李建敏 - 李建敏 廊坊师范学院信息技术提高班十二期
       6、米老师为什么总是假设A是最大的?
        就不长篇大论了,说几点想法:
      (1)思想有多远,行动才能有多远,正如例子所示,最后找出了最大的,如果是假设最小的就只能是最小的。(文汉博客里也提到)
      (2)米老师这么假设我们能看到米老师成功了,在教育2.0时代可谓独占鳌头,所以当我们试着去想我们是最的时候下一个成功的就是我们,对吧。
      (3)动力说,总假设是最大的结果不是都丢面啊,于是就不断去努力,就是最大的
      (4)专注说,总说代表的是持之以恒,只关注最大我们便会朝这个目标不断接近,拿个例子:小日本叫嚣几十年内要拿50个诺贝尔奖,当初都说起狂妄,而短短几年其已拿了很多诺奖,不这是有这么个目标吗?
      (5)心理学上有两个定律:一是重复定律。二是假设定律。对此也有解释
      (6)见米老师大脑小米老师问题的解答 -  12期 李建敏 - 李建敏 廊坊师范学院信息技术提高班十二期
        7、如何给十个数排序?
        Private Sub Command1_Click()
        Dim a(1 To 10)
        For i = 1 To 10
       a(i) = Val(InputBox("a(" & i & ")="))
       Print a(i);
       Next i
       Print
       For i = 1 To 9
       For j = 10 To i + 1 Step -1
       If a(i) < a(j) Then
       b = a(i): a(i) = a(j): a(j) = b
       End If
       Next j, i
       For i = 1 To 10
       Print a(i);
      Next i
      Print
      End Sub
      这个是百度的,具体意思还不是很懂
     8、如何进行十个数字排序,化繁为简?
     private sub command1_click()
     dim i as Integer, s, max as double
     for i = 1 to 10
     s = Inputbox("输入10个数,第" & i & "个:")
     If Isnumeric(s) then   '无效数字
     s = val(s)
     If i mod 5 = 0 then    '5个换行
     print s
     else
     print s,
    end If
    If s > max then max = s
    else
    i = i - 1 '无效数字重新来个for循环
    end If
   next
   print "最大值:" & max
   end sub
     解释:isnumeric()函数判断一对象是否为数字,这样就可以避免输入时输入的不是数字了,在代码中不要这一句也可以即橘色这几句。
    9、如何去掉相同的数?
小米老师问题的解答 -  12期 李建敏 - 李建敏 廊坊师范学院信息技术提高班十二期
 
小米老师问题的解答 -  12期 李建敏 - 李建敏 廊坊师范学院信息技术提高班十二期
     这个百度的,没有看懂。跟那个排序的一样。出现了两个N  to N+1
    10、焦点的顺序问题?
      主要是设置空间的index属性,课本68页和李晓杰博客中都有涉及
    11、为什么提示“请输入第一个数"?
      这叫界面友好,可以提高用户的体验度,就是令使用者得心应手。
    12、这两个?
       if b>max then max=b
       if c>max then max=c
       
 
       if b>max then
            max=b
       else
       if c>max then
           max=c
        聪明的你们你们肯定懂,就不做介绍了
     总结:1、交流的重要性
                 2、反复试验的重要性
                 3、时间太长
      
 
 
 








     
    
    
  评论这张
 
阅读(103)| 评论(33)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017