write a vb script to check equal two 2*2 matrix
Answer / Garima Agrawal
Here's an example VBScript code for your request:
```
Dim arr1, arr2
arr1 = Array(Array(0, 0), Array(0, 0)) ' First matrix
arr2 = Array(Array(0, 0), Array(0, 0)) ' Second matrix
' User inputs the values for the first matrix
arr1(0, 0) = InputBox("Enter element (0,0) of first matrix: ")
arr1(0, 1) = InputBox("Enter element (0,1) of first matrix: ")
arr1(1, 0) = InputBox("Enter element (1,0) of first matrix: ")
arr1(1, 1) = InputBox("Enter element (1,1) of first matrix: ")
' User inputs the values for the second matrix
arr2(0, 0) = InputBox("Enter element (0,0) of second matrix: ")
arr2(0, 1) = InputBox("Enter element (0,1) of second matrix: ")
arr2(1, 0) = InputBox("Enter element (1,0) of second matrix: ")
arr2(1, 1) = InputBox("Enter element (1,1) of second matrix: ")
' Check if the matrices are equal
If arr1(0,0) = arr2(0,0) And arr1(0,1) = arr2(0,1) And arr1(1,0) = arr2(1,0) And arr1(1,1) = arr2(1,1) Then
WScript.Echo "The matrices are equal.""
Else
WScript.Echo "The matrices are not equal.""
End If
```
| Is This Answer Correct ? | 0 Yes | 0 No |
how to use the GetTickCount() properly and what is that procedure for?
Keep all the contract numbers in a array and make a loop . Example:12134,5678,91011,1214125 are contract numbers.
Hi, My name is satish kumar dega I am learing QTP I have one doubt. I need to count the radio buttons in a particular page. In QTP how to write descriptive progming and how I will get all the radiobuttons count.In a paricular page having two WebRadioGroups under each group having 3 radiobuttons.I need to count all the radio buttons could you plz help me regarding this one
How to Check if a string is alphanumeric or not using VB Script
How to store the iterations value in some variable/ in excel? Dim objExcel, ObjFolder, objPath, objWorkbook, objSheet, ObjFSo, ObjFolderName, strExcelPath Const xlExcel7 = 39 ObjFolderName = "Testing" & Hour(time()) & Minute(time()) &Second(time()) objPath = "D:\" strExcelPath = objPath & ObjFolderName & "\testing.xls" Set ObjFSo = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(objPath & ObjFolderName) On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 Set objWorkbook = objExcel.Workbooks.Add() Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) Dim arr1, arr2, arr3 Set outputLines = CreateObject ("System.Collections.ArrayList") arr1 = 123arr2 = 99 arr3 = 10 outputLines.Add arr1 outputLines.Add arr2 outputLines.Add arr3 outputLines.Sort() For Each outputLine in outputLines WScript.Echo outputLine ' how to store this value in excel/ variable? Next objExcel.ActiveWorkbook.SaveAs strExcelPath, xlExcel7 objExcel.ActiveWorkbook.Close objExcel.Application.Quit This above code is working fine but the qs is is there any way to store the sort data in variables / in the excel and how?
how to use textfile for taking value for parametrization instead of datatable or global sheet
what is the full form of dim?
can everyone explain this code Private Sub DrawRect(rectSource As RECT, lngColour As Long) Line (rectSource.Left, rectSource.Top)-(rectSource.Left, rectSource.Bottom), lngColour Line (rectSource.Left, rectSource.Top)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Right, rectSource.Top), lngColour Line (rectSource.Right, rectSource.Bottom)- (rectSource.Left, rectSource.Bottom), lngColour End Sub
How to write a reusable function for testing an "Button" Objects in a page without passing the page name to a function? (Think if page names are dynamic and doesn't have any pattern matching between each page). Send me code which works in QTP 9.2.....
what does mbln in mblnrects mean? my boolean?
Can Any one suggest how we connect QTP and Mainframe and do validation from Mainfram screen
In QTP one function can return more than one value?