Question

我一直在互联网上寻找一个解决方案并且无法找到任何解决方案，但是我想在我的数组中创建每个变量，对于我的表单上的清除按钮，这是一个double = 0循环数组值仍然具有数组的原始值，并且它们内部的变量被声明为全局变量。这是我的代码在按钮事件过程中运行：

Dim intCount As Integer
For intCount = 0 To (dblTotals.Length - 1)
    dblTotals(intCount) = 0
Next intCount

我也在代码dblTotals（intCount） - = dblTotals（intCount）的主体中尝试了这个

但是当循环被finsihed时仍然具有相同的量我还尝试了一个while循环和一个for循环，它们仍然具有相同的值

Answer 1

您可以使用/* definitions, socket(), connect()*/ if (ioctlsocket(socketDescriptor, FIONBIO, (unsigned long *)&nb) != 0) { printf("ioctlsocket error "); break; } FD_ZERO(&writeSet); FD_SET(socketDescriptor, &writeSet); if ((retVal = select(socketDescriptor + 1, NULL, &writeSet, NULL, &tv)) == SOCKET_ERROR) { printf("Send non-blocking error "); break; } else if (retVal == 0) { printf("Non-blocking connect time limit is expired"); break; } } printf("Connection with %s\n", SERVERADDR); DWORD thID; printf("Socket Desciptor: %d\n", socketDescriptor); HANDLE hThread = CreateThread(NULL, NULL, HandleReadThread, (LPVOID)socketDescriptor, NULL, &thID); printf("Thread ID: %d\n", thID); while (1) { // WRITE printf("Client -> Server: "); fgets(&bufferData[0], sizeof(bufferData), stdin); FD_ZERO(&writeSet); FD_SET(socketDescriptor, &writeSet); tv.tv_sec = 5; if ((retVal = select(socketDescriptor + 1, NULL, &writeSet, NULL, &tv)) == SOCKET_ERROR) { printf("Send non-blocking error "); break; } if (FD_ISSET(socketDescriptor, &writeSet) != 0) { if (send(socketDescriptor, bufferData, strlen(&bufferData[0]), 0) == SOCKET_ERROR) { printf("Send error "); break; } } } } while (FALSE); printf("- Error code: %d\n", WSAGetLastError()); closesocket(socketDescriptor); WSACleanup(); return 0; } DWORD WINAPI HandleReadThread(LPVOID serverSocket) { SOCKET socketDescriptor; socketDescriptor = (SOCKET)serverSocket; char bufferData[MAXDATASIZE] = { 0 }; int retVal; fd_set readSet; timeval tv = { 0 }; tv.tv_sec = 5; int numBytes; int nclients = 0; while (1) { FD_ZERO(&readSet); FD_SET(socketDescriptor, &readSet); if ((retVal = select(socketDescriptor + 1, &readSet, NULL, NULL, &tv)) == SOCKET_ERROR) { printf("Select error. Error code: %d", WSAGetLastError()); break; } else if (retVal == 0) { //printf(". . .\n"); continue; } else { //FD_ZERO(socketDescriptor, &readSet); //FD_SET(socketDescriptor, &readSet); // READ if (FD_ISSET(socketDescriptor, &readSet) != 0) { if ((numBytes = recv(socketDescriptor, &bufferData[0], sizeof(bufferData), 0)) == SOCKET_ERROR) { printf("Recv error in Thread. Error code: %d\n", WSAGetLastError()); break; } printf("\nSocket Desciptor: %d\n", socketDescriptor); bufferData[numBytes] = '\0'; printf("Server -> Client: %s\n", &bufferData[0]); } } } closesocket(socketDescriptor); return 0; }：

执行此操作

https://msdn.microsoft.com/en-us/library/system.array.initialize(v=vs.110).aspx

通过调用值类型的默认构造函数来初始化value-type Array的每个元素。

Array.Initialize()

我想在vb中使我的数组中的每个变量= 0

1 个答案: