Question

实型数据需要四舍五入吗

Answer 1

按下ALT+F11,点左边的"SHEET1"(假设你是在SHEET1中完成此功能),然后复制下面的代码,退出.
以后你只要在SHEET1中的单元格输入数字,就会按你的要求个位数进位.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
a = Target.Value
a = WorksheetFunction.Round(a, -1)
Target.Value = a
End Sub

****************
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
If Target.Column = 1 And Target.Row = 1 Then
a = Target.Value
a = WorksheetFunction.Round(a, -1)
Target.Value = a
End If
End Sub

以上是仅针对A1的.

*****************

其实有很多也不会很费力啊

If Target.Column = 2 Then
这是针对第二列的.
If Target.Column <= 2 AND Target.ROW <= 2 Then

这是针对A2:B2的.

*************

噢.学艺不精.要研究一下,不好意思.
我可以帮助你，你先设置我最佳答案后，我百度Hii教你。你的串号我已经记下，采纳后我会帮你制作

Answer 2

MFC的不清楚，用OPENGL
#include <windows.h>
#include <GL/gl.h>

#include <GL/glaux.h>

int main(int argc, char** argv)

{

auxInitDisplayMode (AUX_SINGLE | AUX_RGBA);

auxInitPosition (0, 0, 500, 500);

auxInitWindow (argv[0]);

glClearColor (0.0, 0.0, 0.0, 0.0); //置背景色为黑色

glClear(GL_COLOR_BUFFER_BIT); //清除颜色缓冲区

glColor3f(1.0, 1.0, 1.0); //设置象素颜色为白色

glMatrixMode(GL_PROJECTION);

glLoadIdentity();

glOrtho(-1.0, 1.0, -1.0, 1.0, -1.0, 1.0);

glBegin(GL_POINTS);

glVertex2f(-0.5, -0.5);

glVertex2f(-0.5, 0.5);

glVertex2f(0.5, 0.5);

glVertex2f(0.5, -0.5);

glEnd();

glFlush();

}
在VC6.0 上运行正常，有三个库要自己加上，不知道对你有没有帮助，opengl的资料还是比较多的。