Updated on 2017-08-21 (月) 14:01:11 (64d)

8/20時点での成績評価

  • Aコース
評価A+ABCD
人数21722102
  • Bコース
評価A+ABCD
人数6161534

講義概要

担当梅津
開講2017年度前期
対象知能システム工学科Aコース1年(水戸)
知能システム工学科Bコース1年(日立)
教室Aコース:理学部S棟1F MM1教室
Bコース:E5棟 2F 202教室
 
  • タイピング一次テスト fileILType.zip(経過時間表示バージョン)

第15回:

  • VBAによるライフゲームのサンプル:下記をコピーして貼り付けてください。実行は配布資料を参照。
Sub life()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim num As Integer
Dim C(20, 20) As Integer

For k = 1 To 10
 For i = 2 To 19
  For j = 2 To 19
  num = Cells(i - 1, j).Value + Cells(i + 1, j).Value + Cells(i, j - 1).Value + Cells(i, j + 1).Value
  num = num + Cells(i - 1, j - 1).Value + Cells(i + 1, j - 1).Value + Cells(i - 1, j + 1).Value + Cells(i + 1, j + 1).Value
  If (num = 2 And Cells(i, j) = 1) Or num = 2 Then
    C(i, j) = 1
  Else
    C(i, j) = 0
  End If
 Next
Next

For i = 1 To 20
 For j = 1 To 20
    Cells(i, j).Value = C(i, j)
 Next
Next

Application.Wait Now + TimeValue("00:00:01")
Next
  
End Sub

便利なリンク

  1. Live Campus(履修登録、成績確認など)
  2. 学習管理システム RENANDI(講義毎の課題提出など)
  3. シラバス表示(学内用)
  4. 茨大トップページ
  5. 梅津の担当する講義