ネットワークスペシャリスト試験の目標点数 ~目指せ90点越え~

こんにちは、ゆきはら@SE(@window5296)です。

秋期試験まであと70日。受験申込みの期限も近くなってきました。まだ申し込みされていない方はこちらからどうぞ。

IPA 独立行政法人 情報処理推進機構:受験申込み 

(締切:8月14日20時まで)

 

さて、自分にプレッシャーをかけるのも兼ねて、試験の目標点数をここに書き留めておきます。

 

午前Ⅰ

免除のため受験しません。

 

午前Ⅱ

目標:92点

今初めて過去問見てみましたが、意外に出題範囲が広いですね。情報セキュリティ系の問題はもちろんのこと、システム開発系の問題もあったので少々驚いています。勉強時間はこれから確保していって目標突破したいと思います。落とせるのは2問のみ。どの高度試験でもそうですが、比較的新しい技術に関する初登場問題があるのでそこは対策厳しいですかね~。

 

午後Ⅰ

目標:90点

実はまだ解くどころか印刷もしていません(笑)。午後問題ではファイアーウォールやTCPに関する知識・技能が特に問われるそうなので重点的に学習していきます。応用情報のネットワークの過去問はすべて解いたのでアウトプット力の基礎はついてきてるかな...?正直午後で90点越えはかなりハードル高いですが、挑戦してみます。

 

午後Ⅱ

目標:90点

問題文だけで10ページを超えるようなヘビー級の難敵。おそらく午後Ⅰよりは時間に余裕があると思うので試験時間フルに使って解き切ります。

 

今後お世話になるリンク集

www.nw-siken.com

過去問道場には本当にお世話になってきました。基本情報からセスペまで。今回は勉強法を変えるのでもしかしたら使わないかもしれません。

 

IPA 独立行政法人 情報処理推進機構:過去問題

過去問(問題文・解答・講評)のPDFが置いてあります。

 

www.infraexpert.com

ネットワークの基礎的な知識が学べます。このサイトに関しては学生の頃からお世話になってますね。

 

itpro.nikkeibp.co.jp

10年以上前の解説記事(TCPやルータなど)が役に立つときが結構あります。図解が分かりやすいので。あと最新情報もチェックできますね。

 

ネットワークスペシャリスト以外の情報処理技術者試験を受験される方も一緒に頑張っていきましょう!!

にほんブログ村 資格ブログ IT系資格へ
にほんブログ村

?

 

その他の記事

過去問解説 カテゴリーの記事一覧 - とあるSEのIT日記応用情報技術者試験がメイン)

データベーススペシャリスト カテゴリーの記事一覧 - とあるSEのIT日記

ネットワークスペシャリスト カテゴリーの記事一覧 - とあるSEのIT日記

【Excel】VBAでマインスイーパー作ってみた(ソースコードあり)

以下、過去記事(別ブログ/記事削除済み)の追記修正版 です。

Excel VBAにトライしてみた

身近なところからプログラミングを始めたいという方におすすめのVBA。 Excelさえあればプログラムをつくる&動かすことができるので気軽に始められます。(一般的な言語だと開発環境を構築しないといけないので結構大変です)

以前、VBAの勉強会に参加した後、勉強がてらマインスイーパーを作っていたのでそれを公開したいと思います。

 

画面レイアウト

爆弾の設置箇所はランダム。セルをクリックすると、当該セルに隣接する爆弾の数に応じて数値を表示します。

f:id:window5296:20160611213552p:plain

爆弾をクリックしたら赤くなります。

f:id:window5296:20160611213557p:plain

 

?

ソースコード

いろいろとツッコミどころのあるコードですが書き直したくないのでこのまま晒します。

各自修正してくださいね。

標準モジュール



'初期化処理
Public Sub initialize()
    Randomize '乱数系列の初期化
    
    Range("A10").Select '初期選択セル
    Range("M2").Value = bomNum
    
    '対象セルを塗りつぶす & 爆弾解除
    For i = 1 To celNum
        For j = 1 To celNum
        
            Cells(i, j).Interior.Color = RGB(0, 115, 176)
            Cells(i, j).Font.Color = RGB(0, 0, 0)
            Cells(i, j).Value = ""
            
        Next
    Next

    '爆弾の設置箇所を決定する
    For i = 1 To bomNum
    
        Dim ranNum(2) As Integer
        ranNum(1) = Int((celNum) * Rnd + 1) '乱数 行
        ranNum(2) = Int((celNum) * Rnd + 1) '乱数 列
        
        '既に爆弾がセットされている場合
        If Cells(ranNum(1), ranNum(2)).Value = "A" Then
            
            'スキップ
            i = i - 1
            
        Else
        
            ' 爆弾セット
            Cells(ranNum(1), ranNum(2)).Value = "A"
            Cells(ranNum(1), ranNum(2)).Font.Color = RGB(0, 115, 176)
        
        End If
    
    Next
End Sub

' 爆発処理
Public Sub explosion()

    For i = 1 To celNum
        For j = 1 To celNum
        
            Cells(i, j).Interior.Color = RGB(255, 0, 0)
            Cells(i, j).Font.Color = RGB(0, 0, 0)
            
            If Cells(i, j).Value = "A" Then
                Cells(i, j).Value = "★"

            End If
            
        Next
    Next
        
End Sub

標準モジュール2


Global Const celNum = 9 'セル幅
Global Const bomNum = 15 '爆弾の数

Sheet


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    On Error Resume Next
    
    'リセットボタンだった場合
    If Target.Value = "R" Then
        Call initialize
        Exit Sub
    End If
    
    
    '爆弾だった場合
    If Target.Value = "A" Then
        Call explosion
        Exit Sub
    End If
    
    '範囲外
    If Target.Row > celNum Or Target.Column > celNum Then
        Exit Sub
    End If
    
    '通常セルの場合
    Dim rowN As Integer
    Dim columnN As Integer
    Dim count As Integer
    count = 0
    
    rowN = Target.Row
    columnN = Target.Column
    
    For i = -1 To 1
        For j = -1 To 1
        
            ' 選択セル同士の比較はしない
            If Not (i = 0 And j = 0) Then
            
                If Not (rowN + i < 1 Or rowN + i > celNum Or columnN + j < 1 Or columnN + j > celNum) Then
                    If Cells(rowN + i, columnN + j).Value = "A" Then
                        
                        count = count + 1
                        
                    End If
                    
                End If
            
            End If
        
        Next
    Next
    
    If Not count = 0 Then
        Target.Value = count
    End If
    
    Target.Interior.Color = RGB(142, 209, 224)
    
End Sub

ThisWorkBook


Private Sub Workbook_Open()
        
    Call initialize
    
End Sub

 

エディターもExcel搭載のもので、自動的にエラーチェックもしてくれます。

(Alt+F11で起動します)

f:id:window5296:20160611213601p:plain

 

だいぶ前に書いた記事であるにも関わらず、一定数のアクセスがあったため今回こちらのブログで再公開することになりました。意外に需要があるのかな。