兩個VB題目

2022-07-15 20:25:22 字數 716 閱讀 8798

1樓:匿名使用者

2) .新建一個工程,文字框text1,使使用者輸入字母一律轉換為大寫顯示(焦點在最右端)儲存。

text1.text=ucase$(text1.text) '轉換為大寫

text1.selstart=len(text1.text) '游標移到最右端

***********************************

4) .新建一個工程,在form1介面建立form2,form3兩個子選單的forms選單,選擇form2子選單,以無模式顯示form2,選擇form3子選單,以有模式顯示form3.儲存。

那個有模式無模式是什麼意思啊,要怎麼弄

private sub mnuform2_click() 'from2子選單單擊事件

form2.show '顯示form2

end sub

private sub mnuform3_click() 'from3子選單單擊事件

form3.show vbmodal,me '這句就是將form3顯示為有模式

end sub

2樓:匿名使用者

'form1中**

sub form_load()

form2.show 1

form3.show

end sub

'***************===完工

VB程式設計的兩個搜尋語句

不要單引號 select form time where 天數 text1.text select from time where 日期 dtpicker1.value select form time where 天數 text1.text 改為 dim days as long days val...

問兩個民法題目

1 因為雙方約定是交貨時付款,而乙公司要求甲公司先付部分貨款違反了雙方合同之間的約定,甲公司有權拒付。貨物損失由乙公司承擔,因為貨物還未交付,所有權還未轉移,且乙方違反合同約定。2 a 王某與其妻的婚姻關係不會自動恢復,最高人民法院關於貫徹執行 中華人民共和國民法通則 若干問題的意見 規定 被宣告死...

VB題目,求大佬,如圖,vb題目求大佬解答

private sub mand1 click 生成20個20 80之間隨機數,按每行5個數輸出到窗體 me.cls dim a 20 dim i as integer for i 0 to 19 randomize a i int rnd 80 20 1 20 if i 0 and i mod 5...