VB編程這題有人會(huì)嗎幫忙下謝謝！！好的就直接采納了 VB編程這題有人會(huì)嗎幫忙下謝謝！！好的就直接采納了
分析題目: 需要用到的程序結(jié)構(gòu)是循環(huán): 打印字母,每行6個(gè),一共6行, 那么就是打印36次, 所以循環(huán)應(yīng)該是0到35次 或者1到36次;
需要用的主要運(yùn)算是 Mod取模; \整除運(yùn)算
Private Sub Form_Load()
Form1.Show '窗口顯示出來
Print '換行.離上邊框遠(yuǎn)點(diǎn)
Dim i As Integer '定義一個(gè)整數(shù)i
For i = 0 To 35 '因?yàn)槭?行,每行6個(gè)字母,所以就是循環(huán)36次 [0,35]
If i Mod 6 = 0 Then Print Space(i \ 6 + 10); '每一行最前面的空格數(shù)量 (每一行的前面都再加10個(gè)空格,都離左邊框遠(yuǎn)點(diǎn))
Print Chr(i Mod 26 + 65) + Space(1); '打印字母 并且輸出一個(gè)空格
If i Mod 6 = 5 Then Print '每打6個(gè)字母就換行一次
Next
End Sub
VB代碼：
Private Sub Form_Click()
Dim s(35) As String, i&
For i = 0 To 35
If i Mod 6 = 0 Then Me.Print Chr(13) & Space(20 + 2 * (i \ 6));
s(i) = Chr(i Mod 26 + 65)
Me.Print s(i); Space(2);
Next
End Sub
VB編程這題有人會(huì)嗎幫忙下謝謝!!好的就直接采納了
分析題目: 需要用到的程序結(jié)構(gòu)是循環(huán): 打印字母,每行6個(gè),一共6行, 那么就是打印36次, 所以循環(huán)應(yīng)該是0到35次 或者1到36次;需要用的主要運(yùn)算是 Mod取模; \\整除運(yùn)算 Private Sub Form_Load()Form1.Show '窗口顯示出來Print '換行.離上邊框遠(yuǎn)點(diǎn)PrintDim i As Integer '定義一個(gè)整數(shù)iFor i ...
有幾個(gè)java編程的題各位好心人有時(shí)間的能幫忙寫下嗎?
沒那么多時(shí)間，幫著寫個(gè)第1題吧 \/\/ 編寫求一個(gè)整數(shù)數(shù)組A[10,15,12,9,7]中最小元素min和元素之和sum的 int [] a = {10,15,15,9,7};\/\/ 最小元素 int min=0;\/\/ 數(shù)組和 int sum=0;for(int i=0; i<a.length; i++ ){ sum += a[i];if(i == 0){ min = a[i];}el...
這道題有人會(huì)嗎?求解答過程謝謝!
方法一：設(shè)A工程的工作量為120n,則B的工作量為120n×（1＋1\/4 ）;總工程量120n＋120n×（1＋1\/4 ）＝270n;即120＋120×（1＋1\/4 ）＝270;則 270÷（120÷20＋120÷24＋120÷30）＝18（天）（150－120÷24×18）÷（120÷30）＝15（天）方法二：總工作量：1+1+1\/4=9\/4 工...
...編程題!在線等,急!拜托了,謝謝(ฅ>ω<*ฅ) 1、請(qǐng)編寫程序...
第一題：Dim A As String, B As String, C As Integer, D As StringPrivate Sub Command1_Click()A = ""B = ""C = 0D = ""For i = 1 To 10 Step 1 B = Int((100 - 10 + 1) * Rnd + 10) A = A & "," & B If B Mod 3 = 0 Then C = C + 1...
[急求助]C語言程序編程題,請(qǐng)高手幫忙解答下!
按照題目要求編寫的程序如下(見圖)
vb試題,幫忙做下,謝謝
錯(cuò)誤 好像沒有這種寫法，但是可以直接寫 ADOrs！學(xué)號(hào) 4.VB應(yīng)用程序中與數(shù)據(jù)庫通信的主要機(jī)制稱為數(shù)據(jù)庫引擎。錯(cuò)誤 這個(gè)不太確定，感覺是不對(duì)的，好像Access或者SqlServer這種才叫數(shù)據(jù)庫引擎吧 5.假設(shè)ADOcn為一個(gè)Connection對(duì)象，那么在VB程序中聲明ADOcn的語句是Dim ADOcn As Connection。錯(cuò)誤 應(yīng)該是Public...
誰會(huì)做這道題啊,幫幫忙解一下,謝謝啦各位,要具體解題過程!急急急
3a-2b=8 2a-3b=7 由這兩個(gè)等式可解出：a=2 b=-1 代入不等式 1-（x+1）\/2≤x+2 x（x-1）＞x²-（2+1）²解得 -1≤x＜9
我是編程的小白。大家?guī)兔纯催@段編程。大神勿噴!!!
int max(int a,int b); \/\/程序聲明 main() \/\/主程序，從這里開始 { int x,y,z; \/\/定義變量 int max(int a,int b); \/\/刪！printf("input two numbers:\\n")\/\/輸入兩個(gè)數(shù)據(jù) scanf("%d%d",&x,&y);\/\/輸入兩個(gè)數(shù)據(jù) 空格分隔 z=max(x,y); \/\/比較大小 printf("maxmum=%d"...
這道題 怎么做 誰會(huì)來幫忙解答一下, 謝謝!
這道題 怎么做 2. 計(jì)算行列式 三階行列式 =abc+abc+abc-a3-b3-c3=3abc-a3-b3-c3.
幫忙做一下編程題!! 13.有三個(gè)整數(shù)a,b,c,由鍵盤輸入,輸出其中最小者...
這三道題都不難，可以參考下面的函數(shù)，具體程序在附件中 void question13(){int a,b,c;cout<<"請(qǐng)輸入3個(gè)整數(shù)："<<endl;cin>>a>>b>>c;int temp,res;temp = a>b ? a : b;res = c>temp ? c : temp;cout<<"三數(shù)中最大的數(shù)是："<<res<<endl;}void question14(){char inch;...
相關(guān)評(píng)說：
普蘭縣運(yùn)動(dòng)： ______ Private Sub Command1_Click()Dim i As Integer, j As Integer For i = 1 To 6 For j = 1 To i Print ＂*＂; Next j Print Next iEnd Sub 應(yīng)該是填空題,第一個(gè)格填i,第二個(gè)格填...
普蘭縣運(yùn)動(dòng)： ______ 我分析了一下你的程序,毛病太多,沒有修改,我給你重新編了一個(gè),你copy下來就能用,或者做參考你把自己的那一個(gè)整好吧!Dim A As Integer, I As Integer, B As IntegerPrivate Sub Form_Click...
普蘭縣運(yùn)動(dòng)： ______ Private Sub Command1_Click() Timer1.Enabled = Truea = 0End Sub Private Sub Timer1_Timer() Randomize a = a + 1 Text1.Text = Str(a) Text2.Text = Int(Str(Rnd * 89) + 10) Text3.Text...
普蘭縣運(yùn)動(dòng)： ______ Private Sub Combo1_click()If Combo1.Text = ＂黑體＂ Then Text1.Font = ＂黑體＂End SubPrivate Sub Form_Load()Combo1.AddItem ＂黑體＂End Sub
普蘭縣運(yùn)動(dòng)： ______ #include int main(){int x,y,z;int fangan=0;for(x=1;x<=4;x++)for(y=x+1;y<=5;y++)for(z=y+1;z<=6;z++){if (z>=5){fangan++;printf(＂%2d---x=%d y=%d z=%d...
普蘭縣運(yùn)動(dòng)： ______ Do While I...
普蘭縣運(yùn)動(dòng)： ______ 你的代碼中 0 和字母o都不分,還有你定義數(shù)據(jù)下標(biāo)1 to 30 ,但是在下面for循環(huán)中 從0開始,那肯定下標(biāo)越界,還有你的排序代碼有問題!幫你改進(jìn)了一下!!另外,變量最好先定義后使用,你中間的t和j沒有定義!改進(jìn)代碼:Private Sub Form...
普蘭縣運(yùn)動(dòng)： ______ 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) ...
普蘭縣運(yùn)動(dòng)： ______ 第一題: Private Sub Form_Click() Dim i As Double, j As Double, yz As Double Dim c As Integer c = 0 For i = 6 To 1000 yz = 0 For j = 1 To i '(這里的i能否改為i\2?) If (i Mod j = 0) And (j <> i) Then yz = yz + j '(橫線處填什么) Next j If i = yz ...
普蘭縣運(yùn)動(dòng)： ______ <input type=＂input＂ id=p1><br><input type=＂button＂ onclick=＂Test()＂ value=＂提交＂><script language=vbs>function Test() if p1.value>1 and p1.value<100 then msgbox ＂你輸入對(duì)了,謝謝!＂ else msgbox ＂請(qǐng)輸入一個(gè)從1到100之間的數(shù)字.＂ end ifend function</script> 有個(gè)BUG,呵呵,判斷語句里沒加等于空值的情況,自己加上吧,自己動(dòng)動(dòng)手.
