ＶＢ２００５

質問

プログラムは初めての者です。
毎日１０個の数字を入力して、合計・平均・計算（割り算）・一番多い数字・少ない数字・条件をつけて３つ選択するというようなプログラムを作ることが出来るのでしょうか？

こういうものが作れるなら勉強しようかと思うのですが簡単で良いのでどういったことができるのか教えてもらえないでしょうか？

趣味でやるだけなので難しいことは必要ないです
おねがいします

回答No.3

imogasi

聞いている程度のことは、技術系の高等学校でＢＡＳＩＣを勉強し始めて、すぐに出る例題です。
＞こういうものが作れるなら
なんて聞く程度の問題ではない。
この程度の場合、やり方は２つあって
（１）用意された関数（メソッド）・クラスを使う方法
平均、中央値、メディアンなどはＶ．ＮＥＴのＭＡＴＨクラスには無い。
下記の自作をする必要が有る。
（別のことだがエクセル関数なら有る）
（２）自分で処理ロジック（アルゴリズムといわれるものの、入り口的なもの）で計算する
が有る。
このロジックは言語の種類に余り関係なく必要なスキルで、調べながらプログラムを組んで身に着けていくもので、ＢＡＳＩＣの文法書などに必ず書いてあるものではない。キホン的なものは例題で示してある本も出くわすことも有る。
例えば平均なら、1つずつ資料データを（読んで）足していって、データの最後を足した後にデータ個数で割る、といった処理。
＞一番多い数字
などは、やり方が数種類考えられるし、並べ替えなど使わないと結構難しい。
＞でどういったことができるのか
これも方向がずれた質問。一般的に何でもできるととりあえず考えること。
問題によってはプログラムを組むのに高度な背景知識や学習や経験が必要なだけ。
内容を理解する知識
プログラムで実現する知識
＞趣味でやるだけなので
これも素人の質問。趣味に関連して作るプログラムが易しいとは決していえない。むしろ難しい。最近はＰＣゲームなどで目が肥えているので、パソコンで自作できそうと思っても、通常素人にはすぐ出来ないものだ。
質問で出ている平均などの例は趣味の代表的な課題ではない。
ーーーーー
質問からづれているが、エクセルがあるならエクセルＶＢＡ（文法はＶＢ６当）を勉強したほうが、質問例のことなら達成は早いと思う。
関数を使う法
Sub test01()
MsgBox WorksheetFunction.Average(Range("a1:A10"))
MsgBox WorksheetFunction.Sum(Range("a1:A10"))
MsgBox WorksheetFunction.Median(Range("a1:A10"))
End Sub
処理ロジックによる法
Ａ列データの平均
Sub test02()
d = Range("A65536").End(xlUp).Row '最終行数＝データ数
MsgBox d
t = 0
For i = 1 To d
t = t + Cells(i, "A")
Next i
MsgBox "合計＝" & t
MsgBox "平均＝" & t / (i - 1)
MsgBox WorksheetFunction.Average(Range("a1:A10"))
End Sub
これを（第2行目d = Range("A65536").End(xlUp).Row '最終行数＝データ数を除いて）ＶＢ．ＮＥＴのやり方に置き換えると良い。

お礼

計算なら簡単なプログラムかなと思い例えで書いたのですが、この例を必要としているのではなく目的はＶＢ２００８を使ってみたいという好奇心だけです。
スタートは好奇心からなら楽しくできるだろうと思っているのですが、ＶＢＡでは意味がないのです。
下にも書いたのですが足し算だけでも良いのです。
とにかく何かひとつ最後まで作ってみたいそれだけです。

いろんなサイトをみたのですが超初心者にはさっぱり＞＜わからずなにか参考になる回答があればと期待ししているのですが・・・
ありがとうございました

回答No.2

talosoft

まず、入力した値を保存する方法が必要です。
いっぱんてきにこのような情報はファイルに保存します。

Class SampleClass
'入力した値をファイルに保存
Private Sub Save()
Dim Writer As New System.Io.StreamWriter(My.Application. _
Info.DirectoryPath & "\Data.txt",true,System.
_Text.Encoding.Defult)
Dim I as Integer
For I=1 to 10
Writer.WriteLine(InputBox(Datetime.Now & " のデータを入力"))
Next
writer.Close()
End Sub
'例：足し算（同様に合計・平均・計算（割り算）・一番多い数字・少ない数字・条件をつけて３つ選択も可能です)
Private Sub Plass()
Dim reader As New System.IO.StreamReader(My.Application. _
Info.DirectoryPath & "\Data.txt",System.
_Text.Encoding.Defult)
Dim I as Integer=0
Do Until reader.EndOFStream()
I+=CInt(reader.ReadLine())
Loop
MsgBox("合計は " & I & "です")
reader.Close()
End Sub

End Class
'実際に使うときはえらー処理も実装する必要があります

コメント
VisualBasicも一種のプログラミング言語ですので何でもできると考えてかまいません。

お礼

出来るいうことは分かりました
ありがとうがとうございます

もしまたここを見に来られたら教えて頂きたいのですが、質問にも書いたのですが、これからはじめるので書いているプログラムはさっぱりわかりません。
超初心者向けのサイトはないでしょうか？

とにかく足し算だけでも良いのでなにかを作ってみたいのです＾＾

回答No.1

Aman_Jack

例に挙げられたような「計算」や「条件判断」は、VBの基本的な機能なので、少し勉強すれば簡単にプログラムを作成することができます。

ちなみに、そういった計算の類いならエクセルの関数を使っても可能ですが、基本的なプログラミングの考え方は同じなので、エクセルでどういう式にすれば良いかをイメージできないと、VBなどでプログラミングするのは苦労するかも知れません。

お礼

とりあえず出来るという事が分かったのでまずは準備からします
ありがとうございました