做兩個(gè)VB程序 簡(jiǎn)單題目 vb題目超簡(jiǎn)單
1.用VB編程序設(shè)計(jì)一個(gè)簡(jiǎn)易的計(jì)算器
代碼：
Dim num_1, num2, flag
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption)
Case 10
Label1.Caption = Label1.Caption + "."
Case 11 To 14
num_1 = Val(Label1.Caption)
Label1.Caption = ""
flag = Index
Case 15
num_2 = Val(Label1.Caption)
Label1.Caption = ""
If Command1(flag).Caption = "+" Then
Label1.Caption = num_1 + num_2
ElseIf Command1(flag).Caption = "-" Then
Label1.Caption = num_1 - num_2
ElseIf Command1(flag).Caption = "*" Then
Label1.Caption = num_1 * num_2
Else
Label1.Caption = num_1 / num_2
End If
Case 16
num_1 = 0
num_2 = 0
Label1.Caption = ""
End Select
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
For i = 0 To 9
Command1(i).Caption = i
Next i
End Sub
窗體界面設(shè)置：
在窗體上建立控件數(shù)組Command1(0),Command1(1),Command1(2),……,Command1(16),其Captint屬性分別設(shè)置為0,1,2,3,4,5,6,7,8,9,.,+,-,*,/,=,C
2.用VB編程序?qū)崿F(xiàn)十進(jìn)制與二進(jìn)制之間的相互轉(zhuǎn)化
代碼：
Private Sub Command1_Click()
Text3.Text = ""
Text4.Text = "0."
n = Val(Text1.Text)
Do While n > 0
Text3.Text = CStr(n Mod 2) + Text3.Text
n = n \ 2
Loop
n = Val(Text2.Text)
Do While n > 0
Text4.Text = Text4.Text + CStr(Fix(2 * n))
n = 2 * n - Fix(2 * n)
Loop
End Sub
Private Sub Command2_Click()
Dim s1, s2
Text1.Text = ""
Text2.Text = ""
For i = 1 To Len(Text3.Text)
s1 = s1 + Val(Mid(Text3.Text, i, 1)) * 2 ^ (Len(Text3.Text) - i)
Next i
Text1.Text = s1
For i = 3 To Len(Text4.Text)
s2 = s2 + Val(Mid(Text4.Text, i, 1)) * 2 ^ (-(i - 2))
Next i
Text2.Text = "0" + CStr(s2)
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
Beep
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
KeyAscii = 0
Beep
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 49) And KeyAscii <> 8 Then
KeyAscii = 0
Beep
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 49) And KeyAscii <> 8 And KeyAscii <> 46 Then
KeyAscii = 0
Beep
End If
End Sub
運(yùn)行界面：
相關(guān)評(píng)說(shuō)：
勐海縣球面： ______ Private Sub Command1_Click() i = 0 s = 0 While i < 11 s = s + i i = i + 2 Wend Print s End Sub
勐海縣球面： ______ Private Sub Command1_Click()For a = 0 To 9For b = 0 To 9For c = 0 To 9n = a * 100 + b * 10 + cm = c * 100 + b * 10 + aIf n + m = 1333 Then Print ＂a=＂ & a & ＂ ＂ & ＂b=＂ & b & ＂ ＂ & ＂c=＂ & c Next cNext bNext aEnd Sub
勐海縣球面： ______ 1、 For i = 100 To 200 If i / 3 = i \ 3 Then '這個(gè)i是你要的,輸出代碼自己寫(xiě). End If Next i 2、用k來(lái)存?zhèn)€數(shù) k = 0 For i = 100 To 200 If i / 3 = i \ 3 Then k = k + 1 Next i
勐海縣球面： ______ n=val(inputbox(＂輸入N的值:＂))s=0k=1x=弧度s=xfor i=2 to nk=k*i*(i+1)s=s+(-1)^(i+1)*x^(2*i-1)/knext iprint S
勐海縣球面： ______ private sub form_cilck() M=inputbox(＂請(qǐng)輸入M的值:＂) N=inputbox(＂請(qǐng)輸入N的值:＂) if M>N then max=M else max=N for i = max to M*N if i mod M = 0 and i mod N = 0 then print ＂M和N的最小公倍數(shù)是:＂;i exit for end if next i end sub 手打的 沒(méi)有測(cè)試過(guò) 但是理論上沒(méi)有錯(cuò)`` 加分及分```
勐海縣球面： ______[答案] 大體偽代碼框架如下 y = int(x); if(y/2*2 == y) even() else odd() 另,這算法好傻,最快判斷奇偶的話(huà),只需要看整數(shù)的最后1位是0還是1就行了(因?yàn)橛?jì)算機(jī)用的是二進(jìn)制數(shù))
勐海縣球面： ______ Private Sub Text1_KeyPress(KeyAscii As Integer) Dim A As String Dim B As String Dim C As String Dim D As String If KeyAscii <> 8 Then If Len(Text1.Text) >= 2 Then A = Left(Text1.Text, 2) Select Case A Case ＂01＂ B = ＂一年級(jí)＂ Case ＂02...
勐海縣球面： ______ 求S=101-103+105-……-301 S = 0 For N=101 To 301 Step 2 If (N Mod 2)=0 Then flag = -1 Else flag = 1 End If S = S + flag*N Next MsgBox S 求s=3^1-3^2+3^3-3^4……+3^9 S = 0 P = 1 For N=1 To 9 P = P*3 If (N Mod 2)=0 Then flag = -1 Else flag = 1 End If S = S + flag*P Next MsgBox S
勐海縣球面： ______ Private Sub chk1_Click() showInfo End Sub Private Sub chk2_Click() showInfo End Sub Private Sub cmdConfirm_Click() showInfo End Sub Private Sub D_Click(Index As Integer) showInfo End Sub Private Sub Form_Load() showInfo End Sub ...
勐海縣球面： ______ <p>'1</p> <p>Private Sub Command1_Click()</p> <p>n = 12#</p> <p>s = 0.01</p> <p>i = 0&</p> <p>While n < 20#</p> <p> n = n + n * s</p> <p> i = i + 1</p> <p>Wend</p> <p>Print i; ＂年＂</p> <p>End Sub </p> <p>'2</p> <p>Private Sub ...
