情報リテラシー

8/20時点での成績評価 †

• Aコース

• Bコース

講義概要 †

• タイピング一次テスト ILType.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（履修登録、成績確認など）
   • https://i-student.ibaraki.ac.jp/
2. 学習管理システム RENANDI（講義毎の課題提出など）
   • https://renandi.ipc.ibaraki.ac.jp/renandi/index.jsp
3. シラバス表示（学内用）
   • https://i-student.ibaraki.ac.jp/syllabus2/syllabusSearchDirect.do?nologin=on
4. 茨大トップページ
   • http://www.ibaraki.ac.jp/index.html
5. 梅津の担当する講義
   • (1) 情報リテラシー
     • http://colors.ise.ibaraki.ac.jp/?IL
   • (2) コンピュータシステム1
     • http://colors.ise.ibaraki.ac.jp/?CS1