Решите задачу №3 4 вариант: вычислить сумму нечетных цифр. На языке программирования ОБЯЗАТЕЛЬНО прочтите постановку задачи.

/*
C++ compiler
gcc (Ubuntu 5.2.1-22ubuntu2) 5.2.1 20151010
Copyright (C) 2015 Free Software Foundation, Inc.
*/

#include <iostream>
#include <vector>
using namespace std;

int main()
{
    int count = 0;
    cout <<"Введите количество призывников: ";
    cin >>count;
    if (count>17) count=17;
    vector<int> tanks(count);
    for (unsigned i=0; i<tanks.size(); i++) cin >>tanks[i];
    int min=300, max=0;
    for (unsigned i=0; i<tanks.size(); i++)
    {
        if (min>tanks[i]) min=tanks[i];
        if (max<tanks[i]) max=tanks[i];
    }
    int cnt=0;
    for (unsigned i=0; i<tanks.size(); i++)
    {
        if ((tanks[i]!=min) and (tanks[i]!=max)) cnt++;
    }

    cout <<cnt <<endl;
}

Sub Alg_1()
    xN = -5: xK = 5: h = 0.1
    x = xN: i = 1
    Do While x <= xK
        y = 3 * x ^ 2 - 6 * x + 5
        Cells(i, 1) = x: Cells(i, 2) = y
        x = x + h: i = i + 1
    Loop
End Sub

Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.

Теперь о Вашей ошибке

Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h

Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.