vb程序設(shè)計題求解！！！謝謝各位了！！ VB程序設(shè)計里的題，求詳解編程，謝謝了！
Private Sub Command1_Click()
Dim h0 As Integer, s As Single, a(1 To 20) As Single, i As Integer
a(1) = 100 '第一個扔下的高度
For i = 2 To 20 '每一個數(shù)組內(nèi)數(shù)據(jù)表示小球行走的一個方向的路程，也就是奇數(shù)項是從最高點落下的路程，偶數(shù)項是從地面反彈到最高點的路程
a(i) = a(i - 1) / 2
Next i
For i = 1 To 19 '第10次落地的總路程
s = s + a(i)
Next
Print "第10次落地的總路程:" & s
Print "最后一次彈起的高度：" & a(20) '我這里是把第10次落地以后彈起的高度當(dāng)做最后一次談起的高度
End Sub
Private Sub Command2_Click()
Dim n_a() As Integer, n_b() As Integer, n_left() As Integer
Dim i As Integer, j As Integer, k As Integer, min As Integer
'簡單的方法一時想不出來，我就一個個試出來。雖然效率不是很高，不過還好數(shù)字不是很大.
For i = 0 To 321 \ 17
For j = 0 To 321 \ 27
If i * 17 + j * 27 <= 321 Then
k = k + 1
ReDim Preserve n_left(k)
ReDim Preserve n_a(k)
ReDim Preserve n_b(k)
n_a(k) = i
n_b(k) = j
n_left(k) = 321 - i * 17 - j * 27
End If
Next
Next
min = n_left(1) '求剩下最小的距離
j = 1 '保存剩下最小距離的那組組合的序號
For i = 2 To k '我這里只求了一組解，也許有不同的組合而剩下距離相同的情況 我就沒有再列出來的··
If min > n_left(i) Then
j = i
min = n_left(i)
End If
Next
Print "最小剩余組合：17m X" & n_a(j) & "根，27m X" & n_b(j) & "根，剩余最小長度為" & n_left(j); "m"
End Sub
第三題我回答過了··你看下面的網(wǎng)址的第一題···
VB啊..
題目太麻煩。恕我很懶。。
根據(jù)我自己的學(xué)習(xí)經(jīng)驗，VB編程（或者是說所有的編程）有幾個階段
1，打字階段。按照書本輸入代碼，不過依然很難完全輸入正確。。
2，語法學(xué)習(xí)階段。開始學(xué)習(xí)各種語句，if else ， when ，for
3，理解代碼階段。慢慢能理解別人編寫的簡單函數(shù)。
4，代碼編寫階段。開始編寫些簡單的代碼，經(jīng)常漏標(biāo)點符號，覺得代碼很難，語法很難。并且不會使用debug功能，不理解編譯器提供的提示。
5，進階階段。簡單代碼很容易就搞定了，debug會了，編譯器提供的信息也理解了。覺得寫語法很簡單，難點在算法。
7，窗口編寫階段。開始研究比較高級的窗口交互，信息輸入的問題。
到最后的階段，你就成為一個合格的入門程序員了。
我不知道你在哪個階段了，慢慢來吧，一口吃不成個大胖子。
第一題：
Private Sub Command2_Click()
n = 100
For i = 1 To 10
Sum = Sum + n
n = n / 2
Next i
Print "第十次落地共經(jīng)過：" & Sum & "米"
Print "第十次反彈高度是：" & n & "米"
End Sub
第二題：我想到了在給你說
第三題：
Private Sub Command3_Click()
n = 1
For i = 7 To 1 Step -1
Sum = Sum + n
n = (n + 1) * 2
Next i
Print "小猴那天共摘下" & Sum & "個桃子"
End Sub
C語言程序設(shè)計,求答案。萬分感謝!
include<stdio.h> int main(){ char c;scanf("%c",&c);if('a'<=c&&c<='z')printf("%c\\n",char(c-32));else if('A'<=c&&c<='Z')printf("%c\\n",char(c+32));else printf("what you input is not a letter! ");return 0;} 第二題的:include<stdio.h> int main(...
vb程序設(shè)計題求解!!!謝謝各位了!!
Option Explicit Private Sub Command1_Click()Dim h0 As Integer, s As Single, a(1 To 20) As Single, i As Integer a(1) = 100 '第一個扔下的高度 For i = 2 To 20 '每一個數(shù)組內(nèi)數(shù)據(jù)表示小球行走的一個方向的路程，也就是奇數(shù)項是從最高點落下的路程，偶數(shù)項是從地面反彈到最...
C語言程序設(shè)計題,請知道的幫忙解答下,謝謝
6 A B中指數(shù)必須用整數(shù)表示; C中do為關(guān)鍵字，不能用作變量;D中變量不能以數(shù)字開頭。7 D 語句以分號結(jié)尾，D中有兩個分號。其他的都正確
求高手幫我分析一個C程序設(shè)計的題目
（exp）?a++：b-- 是三元操作符號 但括號里的表達式(問號之前)為真(true或者1或者不等于0)則執(zhí)行a++,否則執(zhí)行b-- 題目中以exp為判斷,即exp為true(-1,1,2,3...都可以)執(zhí)行a++，為false(0)執(zhí)行b-- A (exp==0)當(dāng)exp為0的時候執(zhí)行 a++ B (exp!=0)當(dāng)exp不等于0的時候執(zhí)行 a++ C...
《C語言程序設(shè)計試題》求答案,懂得來 ---給滿分--- 謝謝
4:include<stdio.h>int main(void){int x,y;printf("x=");scanf("%d",&x);switch(x){case x<0:y=-1;break;case x=0:y=0;break;case x>0:y=1;break;}printf("y=%d\\n",y);return 0;}5:#include<stdio.h>int main(void){int i,j,x,a[3];for(i=100;i<1000;i++)...
求一份C語言程序設(shè)計的期末考試試題!!!謝謝了
二. 填空題（共7題，每空2分，共30分）1. 數(shù)組 int a[3][5]; 共定義了___個元素。2. 有float f=3.1415927; 則 printf(“%5.4f”, f );輸出的結(jié)果是___。3. 下面程序的功能是：輸出 100以內(nèi)（不包含100）能被 3整除且個位數(shù)為 6的所有整數(shù)，請?zhí)羁铡ain( ){ int i;...
C語言程序設(shè)計 我是C語言初學(xué)者,有一道看程序的題我有些弄不懂,還請...
答案：C A：是如果a>b,則一程序一直執(zhí)行到“b=c;”，效果是換a與b的值；B：是如果a>b,則執(zhí)行{ }里的語句，效果是交換a與b的值；C：是如果a>b,則執(zhí)行c=a; 無論a是否大于b，c的值都要給a，a-b;沒什么作用；D：是如果a>b,則效果是交換a與b的值，c相當(dāng)于中轉(zhuǎn)站，a-b;沒什么...
JAVA語言程序設(shè)計兩道練習(xí)題。謝謝!
第一題有問題：1、創(chuàng)建Person接口(即“人”)，它有setData()和getData()方法對“人”屬性name、sex和birthday賦值和獲得這些屬性組成的字符串信息。問題是：你說要創(chuàng)建一個人（接口），然后里面有方法對人的屬性進行賦值？這怎么可能呢，接口是沒有成員變量（屬性）的，怎么能賦值？接口里只能有常量。...
...C語言程序設(shè)計,做任意一個就行了。謝謝了!!!各位大神!
pragma warning(disable:4996)\/\/該語句是屏蔽第4996號警告，可不要，typedef struct Node { long num;char name[10];float math;float chinese;float english;int flag;\/\/判定是否及格，最好用bool型 }SCORE,*PSCORE;\/\/對于本題可以不用定義結(jié)構(gòu)體的 void main(){ FILE* fp;FILE* fp_write_jg...
幫幫忙,謝謝了。面向?qū)ο蟪绦蛟O(shè)計(JAVA)試題
我的實訓(xùn)題，不知道對你有沒有幫助哈。包含了參考答案。 實驗一： \/\/1.編寫一個程序，能夠從鍵盤上接收兩個數(shù)字，然后計算這兩個數(shù)的乘積并打印輸出； \/\/提示：從鍵盤輸入采用System.in對象。 import java.io.*; public class test1 { public static void main(String[] args)throws IOException ...
相關(guān)評說：
福泉市偏置： ______ 弄個TIMER,然后設(shè)置1秒動1次,雙擊它,寫 picture1.left=picture1.left+1 picture2.left=picture2.left-1 if picture1.left+picture1.width>=picture2.left then messagebox(year()+＂年＂+month()+＂月＂+day()+＂日＂+＂發(fā)生交通意外＂,48,＂死人啦＂) endif
福泉市偏置： ______ Private Sub Command1_Click() s = 2 For i = 3 To 1000 For j = 2 To i - 1 If i Mod j = 0 Then GoTo 10 End If Next j s = s + i 10: Next i Print s End Sub
福泉市偏置： ______ D 第一VB中的函數(shù)參數(shù),默認情況是ByRef類型的,也就是地址引用,傳入的x會被改變. 第二ByVal是值引用,也就是說m只是y的一個副本,m值的變化并不影響y的值.
福泉市偏置： ______ Function y(b As Date) As Integery = (Now - b) \ 365End FunctionPrivate Sub Form_click()Dim i As Integeri = y(InputBox(＂＂, , ＂2008-01-01＂))Print ＂我的...
福泉市偏置： ______ Private Sub Command1_Click() x = CInt(Text1) Select Case x Case 0 To 100 y = 0.55 * x Case 101 To 125 y = 0.7 * (x - 100) + 55 Case 126 To 150 y...
福泉市偏置： ______ Private Sub Command1_Click() Dim N As Integer, M As Integer N = Val(InputBox(＂請輸入總金額:＂)) Print N & ＂元需要支付的錢幣總張數(shù)為:＂ & N \ 100 & ＂+＂; M = M + N \ 100 N = N Mod 100 Print CStr(N \ 50) & ＂+＂; M = M + N \ 50 N ...
福泉市偏置： ______ 首先 command1_click 里面重復(fù)定義了 a()其次 函數(shù)sub1 返回到 e 和f有問題,如果定義5x5 那么 e 和f...
福泉市偏置： ______ VB.net e = Math.PI * 2 / (1 / Math.Pow(Math.Pow(a, 2) + Math.Pow(b, 2), 0.5) - 1 / Math.Pow(Math.Pow(d, 2) + Math.Pow(c, 2), 0.5) - 1 / Math.Pow(Math.Pow(a + b, 2) + Math.Pow(c, 2), 0.5) + 1 / Math.Pow(Math.Pow(d - b, 2) + Math.Pow(c, 2), 0.5)) 你...
福泉市偏置： ______ dim s as stringdim b() as stringdim n as long,m as longm=0n=1open ＂c:\data0002.txt＂ for input as #1 do until n=10000line input #1,sif n>50 thenredim preserve b(m) ...
福泉市偏置： ______ 第一題 Private Sub Form_click() Label1.Visible = Not Label1.Visible End Sub Private Sub Timer1_Timer() Randomize Label1.Caption = Time Label1.ForeColor = RGB(CInt(nrd * 255), CInt(Rnd * 255), CInt(Rnd * 255)) End Sub 第二題 Private ...
