locked
vb題目問題 RRS feed

  • 一般討論

  • 請問要怎麼用迴圈做出正三角形 ( 使用*符號)?



    另外如何用迴圈找出最大值及最小值?

    還有一題

    1*2*3+3*4*5+5*6*7................+13*14*15= ?
    2012年12月25日 下午 01:26

所有回覆

  • 作業層級的問題要自己先寫過再問。

    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2012年12月25日 下午 02:02
  • 是否有看公告的「作業文處理要點」


    理直氣和,切記。

    http://blog.kkbruce.net

    2012年12月26日 上午 03:27
  • 此為作業文,按作業文處理要點上鎖,等發問者證明非作業文時再行解鎖。

    學習不是查個 Google 套個書上的範例就算了,而是去熟悉了解每個程式碼背後的意義,否則就算學個幾百年,它也不會是你的。

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    2012年12月26日 上午 05:22
    版主

    • 已編輯 AChangeModerator 2013年8月19日 上午 07:52 修改適當標題, 原標題: 如何用VB 2010的設計把TextBox1的數值存成WORD? (我是初學者,請直接教我程式,不要丟給我網址。)
    • 已變更類型 璉璉Moderator 2013年8月24日 上午 03:48
    • 已合併 璉璉Moderator 2013年8月24日 上午 03:52 作業文集中區
    2013年8月18日 上午 11:12
  • 好啊,你要程式就給你程式,但裡面用到的物件請自行 Google,因為是你說不要給網址的。

    Imports Word = Microsoft.Office.Interop.Word  
    Public Class Form1  
     
        ' Find / Replace in Word Document  
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
            Dim objWordApp As New Word.Application  
            objWordApp.Visible = True 
     
            'Open an existing document.  
            Dim objDoc As Word.Document = objWordApp.Documents.Open("C:\Trydata\1.doc")  
            objDoc = objWordApp.ActiveDocument  
     
            'Find and replace some text  
            'Replace 'VB' with 'Visual Basic'  
            objDoc.Content.Find.Execute(FindText:="VB", ReplaceWith:="Visual Basic Express", Replace:=Word.WdReplace.wdReplaceAll)  
            While objDoc.Content.Find.Execute(FindText:="  ", Wrap:=Word.WdFindWrap.wdFindContinue)  
                objDoc.Content.Find.Execute(FindText:="  ", ReplaceWith:=" ", Replace:=Word.WdReplace.wdReplaceAll, Wrap:=Word.WdFindWrap.wdFindContinue)  
            End While 
     
            'Save and close the document  
            objDoc.Save()  
            objDoc.Close()  
            objDoc = Nothing 
            objWordApp.Quit()  
            objWordApp = Nothing 
     
        End Sub 
    End Class 

    至於你貼那張圖是什麼意思我看不懂,我也不想懂,因為你連上網求助的基本禮貌都沒有。

    你會這樣子去問你的老師或主管嗎?


    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    2013年8月18日 上午 11:25
    版主