1樓：渾語詩
第一個for是選擇數字，大寫字母，小寫字母，其餘為「-」；
第二個for是判斷多餘「-」，改為一個「-」；
第三個for是判斷以「-」分割後的各個單詞長度，並且比較，長的賦值到b；
2樓：匿名使用者
48至57是數字
65至90是大寫字母
97至122是小寫字母
mid(s,i,1)="-"替換當前字元為-
五道vb程式分析題，答案有，求大神給分析一下程式過程，急! 40
3樓：金華阿呆
8、輸入一個數x，如果x>=0，則y=1-2*x，bai否則的du話y=1+x
9、迴圈，直到i大於
zhi7，每次迴圈i增加3，x增加5
10、rnd函式是返dao回一個0—1之間的隨機數專，屬所以取整後x為4（只取整數部分），輸出結果必為good
11、迴圈，每一次迴圈x=(x+3)*(x+4)，n為迴圈次數，迴圈直到x>=60為止，輸出n,x及和
12、x為字元框內數字，a為x除10求餘，b為x除10求餘後再除以10，c為x除100，因為均為整數型，所以最後結果都必須取整（四捨五入）
一道vb簡單操作題。。。。求答案！！！急！！！
4樓：
private sub command1_click()if list1.selcount < 2 thenmsgbox "請選擇至少兩項"
exit sub
end if
for i = 0 to list1.listcount - 1if list1.selected(i) then list2.additem list1.list(i)
next i
end sub
vb程式閱讀題，知道答案但是不懂過程，求大神。
5樓：
剛剛回答錯了，
三次大的迴圈，先對1-5的數判斷是否是3的倍數，如果不是則a=a+1（小迴圈裡執行了4次，即只有j=1,2,4,5時）。。。。然後無條件執行a=a+1（小迴圈裡總共執行了五次）
所以結果=0+3x（4+5）=27
這道vb程式設計題目的答案是什麼？1．下面的程式段執行後，顯示的結果是 ______。 dim x% if x then msgbox(x)
6樓：匿名使用者
選( a ) x=0
x+1=1
dim x%是bai用型別
du說明符宣告變數的方zhi式
%是integer的型別說明符
是dim x as integer 的簡化寫法daox初始化時內未賦值情況下預設容是0
所以x=0 msgbox(x+1)=1常用型別說明符
% integer
& long
! single
# double
$ string
@ currency
7樓：
x 相當於抄一個邏輯型的變數，x=0時，為假，bai取其它值du都為真if x then msgbox(x) else msgbox(x+1)意思為：如zhi
果x為真，輸出
daox變數（msgbox(x)），否則輸出x+1（msgbox(x+1)），本題x未賦值，為0，故為假，所以選 a
8樓：匿名使用者
從未賦值時，vb的變數預設為0，即x為0。0認為為假，所以顯示x+1的結果為1
答案：(a)1
有一道vb操作題，請高手賜教！
9樓：匿名使用者
一個空白窗體就行了. **如下:
private sub form_dblclick()me.cls
end sub
private sub form_keypress(keyascii as integer)
print chr(keyascii) & " ascii碼為：" & keyascii
end sub
private sub form_load()me.keypreview = true
end sub
10樓：酒瓶裡的蚊子
在窗體上放置一個label控制元件，然後在編輯區中貼上如下**：
private sub form_dblclick()label1.caption = ""
end sub
private sub form_keypress(keyascii as integer)
label1.caption = "字元為:" & chr(keyascii) & space(5) & "對應ascii碼:" & cstr(keyascii)
end sub
求助物理大神，這道題答案為什麼說vb＝√2vo？
11樓：匿名使用者
用微元方法分析，當滑塊a向左移動一段小距離dx時，圓柱向v0方向運動的距離是dx/√2，反過來也可以說vb＝√2vo。
12樓：匿名使用者
o和b旋轉的角速度相等,而bc=√2oc,所以就有vb=√2vo了唄
急求這兩道vb題目的解題步驟，題目很簡單，但是我是菜鳥啊。**等答案，好急啊！！先謝過各位大神了
13樓：匿名使用者
題目不是要求不能寫**嗎？在屬性視窗裡設定就可以了！
求一道vb題的答案啊。
14樓：匿名使用者
第一題private sub form_click()me.label1.caption = "你單擊了窗體"
end sub
private sub form_dblclick()me.label1.caption = "你雙擊了窗體"
end sub
第二題private sub command1_click()if me.command1.caption = "清屏" thenme.cls
me.command1.caption = "單擊窗體後退出"
me.command1.left = 0
me.command1.top = 0
me.command1.width = 2 * me.command1.width
me.command1.height = 2 * me.command1.height
else
endend if
end sub
private sub form_activate()for i = 1 to 4
for j = 1 to 6
if j = 6 - i then
print " ";
else
print "★";
end if
next
next
end sub
private sub form_click()if me.command1.caption = "單擊窗體後退出" then
endend if
end sub
同時需要修改窗體的borderstyle屬性為1第三題先新增控制元件建立介面,然後再為控制元件新增**
15樓：匿名使用者
程式設計題1.在窗體上建立一個標籤，當單擊窗體時，在標籤上顯示「你單擊了窗體」；當雙擊窗體時，在標籤上顯示「你雙擊了窗體」
private sub form_click()
label1.caption = "你單擊了窗體"
end sub
private sub form_dblclick()
label1.caption = "你雙擊了窗體"
end sub
2、設計應用程式，要求在窗體上輸出如圖13所示的簡單圖形，窗體不可改變大小。當單擊「清屏」按鈕，清除窗體上顯示的圖形，同時，命令按鈕顯示為「單擊窗體退出」且移至窗體左上角改變為原大小的兩倍；單擊窗體後退出應用程式。
private sub command1_click()
if command1.caption = "清屏" then
me.cls
command1.caption = "單擊窗體退出"
command1.move 0, 0, command1.width * 2, command1.height * 2
end if
end sub
private sub form_click()
unload me
end sub
private sub form_load()
'在屬性面板中調整：
'設定窗體的borderstyle屬性為 1或者3
'設定窗體的controlbox屬性為false
me.autoredraw = true
print tab(2); string(4, "★"); spc(4); string(1, "★")
print tab(2); string(3, "★"); spc(4); string(2, "★")
print tab(2); string(2, "★"); spc(4); string(3, "★")
print tab(2); string(1, "★"); spc(4); string(4, "★")
command1.caption = "清屏"
end sub
求大神做一下這道題，求大神幫做一下這道題
綏喻而安 因為y 2x,所以x y x 2x 3x 12，所以，x 4，y 2x 8 2 根據方程兩邊同時乘以一個不為零的數，等式兩邊仍然相等，所以讓x 2y 1的兩邊同時乘2，變為2x 4y 2，然後用這個式子減去下面那個2x 3y 9的式子，2x 2x沒有了，4y 3y 7y 2 9 7，所以y...
求個大神解答一下這道VB題目啊，過幾天就考試了，還有好多題目
第一行 使用者名稱與密碼不一致，請重新輸入 第二行 false 第三行 請輸入密碼！第四行 請輸入帳號！現在的程式設計題都這麼簡單了嗎。小學生水平啊親，好好的學好這些知識吧，對人生的幫助真的很大的。請問這道題用vb怎麼寫出來?求大神解答，明天就要考試了 private sub form click ...
請看一下這道題怎麼做，大家請看一下這兩道題目怎麼做？
1，三邊長為6cm，8cm，10cm，道理是勾股定理直角三角形滿足6 十8 10 其周長為24cm2題，作a點關於直線cd對稱點e，連線ae交cd於p點，p點就是自來水的廠址。如圖過e作bd垂線交bd延長線於f點。cdfe是矩形 ef 30千米，bf 40千米 由勾股定理得 eb 50幹米 由對稱點...